From: root <root>
Date: Fri, 20 Jan 2006 22:05:41 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=0bc7e94283cd5901b0858c7ae6a97de78be2adb9;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/perl/readline b/src/perl/readline
index f8ba1141..a0213b11 100644
--- a/src/perl/readline
+++ b/src/perl/readline
@@ -13,8 +13,6 @@ sub on_button_press {
 
       $self->tt_write ($diff < 0 ? "\x1b[D" x -$diff
                                  : "\x1b[C" x $diff);
-
-      return 1;
    }
 
    ()
diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs
index bf63b466..02813f56 100644
--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -598,7 +598,7 @@ rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
                         setuv (time,      xe->xmotion.time);
                         setiv (x,         xe->xmotion.x);
                         setiv (y,         xe->xmotion.y);
-                        setiv (row,       xe->xmotion.y / term->fheight);
+                        setiv (row,       xe->xmotion.y / term->fheight + term->view_start);
                         setiv (col,       xe->xmotion.x / term->fwidth);
                         setiv (x_root,    xe->xmotion.x_root);
                         setiv (y_root,    xe->xmotion.y_root);
diff --git a/src/urxvt.pm b/src/urxvt.pm
index dc0d7e9f..51f1c102 100644
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -498,8 +498,8 @@ Called whenever the corresponding X event is received for the terminal If
 the hook returns true, then the even will be ignored by rxvt-unicode.
 
 The event is a hash with most values as named by Xlib (see the XEvent
-manpage), with the additional members C<row> and C<col>, which are the row
-and column under the mouse cursor.
+manpage), with the additional members C<row> and C<col>, which are the
+(real, not screen-based) row and column under the mouse cursor.
 
 C<on_key_press> additionally receives the string rxvt-unicode would
 output, if any, in locale-specific encoding.