From a8a58b09324e6c32d982840cdc4cc6a6d13fbb0b Mon Sep 17 00:00:00 2001
From: root <root>
Date: Sun, 12 Feb 2006 05:31:53 +0000
Subject: [PATCH] *** empty log message ***

---
 Changes           |  7 ++++++-
 src/perl/readline | 14 ++++++++++----
 src/urxvt.pm      |  4 ++--
 3 files changed, 18 insertions(+), 7 deletions(-)

diff --git a/Changes b/Changes
index 90d624f1..a1ee51cc 100644
--- 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 b824fc44..c6bb4dd1 100644
--- 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 df0eb0b5..f81a7e2b 100644
--- 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).
-- 
2.34.1