*** empty log message ***

diff --git a/src/perl/xim-onthespot b/src/perl/xim-onthespot
index 08ffb4379834b447a6bd1b80f73ec8743442ffd5..4b6101557138d45c41ca97fc9b662e36c96b446d 100644 (file)
--- a/src/perl/xim-onthespot
+++ b/src/perl/xim-onthespot
@@ -27,7 +27,7 @@ sub refresh {
 
       $rstyle |= urxvt::RS_Uline   if $_ & (urxvt::XIMUnderline | urxvt::XIMPrimary);
       $rstyle |= urxvt::RS_RVid    if $_ & (urxvt::XIMReverse   | urxvt::XIMSecondary);
-      $rstyle |= urxvt::RS_Blink   if $_ & (urxvt::XIMHighlight | urxvt::XIMTertiary);
+      $rstyle |= urxvt::RS_Italic  if $_ & (urxvt::XIMHighlight | urxvt::XIMTertiary);
 
       ($rstyle) x ($self->strwidth (substr $text, $idx++, 1))
    } unpack "l!*", $self->{rend};
@@ -57,12 +57,6 @@ sub on_xim_preedit_done {
    ()
 }
 
-sub on_xim_preedit_caret {
-   my ($self, $pos, $dir, $style) = @_;
-   warn "preedit_caret(@_)\n";
-   ()
-}
-
 sub on_xim_preedit_draw {
    my ($self, $caret, $pos, $len, $feedback, $chars) = @_;