repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 6774bca03f3d35db3cff4a606796962187f5ca77:
path_to: 
revision_to: 

commit 6774bca03f3d35db3cff4a606796962187f5ca77
Author: Marc Lehmann 
Date:   Wed Jan 25 01:53:33 2006 +0000

    *** empty log message ***

diff --git a/src/perl/xim-onthespot b/src/perl/xim-onthespot

--- 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) = @_;

-----END OF PAGE-----