*** empty log message ***

diff --git a/Changes b/Changes
index 90d624f12848ee3068163e585c063430963e24c0..a1ee51cc941d5d0b19b71fd9c560817114a3adf4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -13,9 +13,14 @@ WISH: anyevent mouse notification / manage MotionMask better.
 WISH: http://www120.pair.com/mccarthy/nextstep/intro.htmld/Workspace.html is the correct nextstep look.
 DUMB: support tex fonts
 
-       - improve property handling for -pe tabbed: avoid unneecssary property
+       - readline perl extension now requires shift-click instead of a normal
+          click.
+       - improve property handling for -pe tabbed: avoid unnecessary property
           changes (for kde's benefit) at the expense of extra round-trips,
           improve size hint setting.
+        - modified XIM according to a patch sent by Takano Akio that sets
+          the preedit rectangle for OverTheSpot, which helps some input methods
+          to correctly position their preedit window.
 
 7.6  Fri Feb 10 08:52:36 CET 2006
        - changed interpretation of [alpha] colour prefix.

diff --git a/src/perl/readline b/src/perl/readline
index b824fc44f25874da618cef54a294fc8c5615064a..c6bb4dd155be20fe362fa8db85c18250f3c6a238 100644 (file)
--- a/src/perl/readline
+++ b/src/perl/readline
@@ -19,14 +19,20 @@ sub on_init {
 sub on_button_press {
    my ($self, $event) = @_;
 
-   return
-      if $self->current_screen || $self->hidden_cursor || !$self->{enabled};
+   $self->current_screen || $self->hidden_cursor || !$self->{enabled}
+      and return;
+
+   my $mask = $self->ModLevel3Mask | $self->ModMetaMask
+            | urxvt::ShiftMask | urxvt::ControlMask;
+   
+   ($event->{state} & $mask) == urxvt::ShiftMask
+      or return;
 
    $termios->getattr ($self->pty_fd)
       or return;
 
-   return
-      if $termios->getlflag & &POSIX::ICANON;
+   $termios->getlflag & &POSIX::ICANON
+      and return;
 
    my ($row, $col) = $self->screen_cur;
    my $line = $self->line ($row);

diff --git a/src/urxvt.pm b/src/urxvt.pm
index df0eb0b58744bb6c64a407ebdbd7576e9080f9cc..f81a7e2b9f73c27577ea2f89c7bccaa98f4f4f39 100644 (file)
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -155,8 +155,8 @@ selection.
 
 =item readline (enabled by default)
 
-A support package that tries to make editing with readline easier. At the
-moment, it reacts to clicking with the left mouse button by trying to
+A support package that tries to make editing with readline easier. At
+the moment, it reacts to clicking shift-left mouse button by trying to
 move the text cursor to this position. It does so by generating as many
 cursor-left or cursor-right keypresses as required (the this only works
 for programs that correctly support wide characters).