*** empty log message ***

diff --git a/src/perl/readline b/src/perl/readline
index f8ba114175d1b87950c293c22a42bb6793a96cc0..a0213b114d886529ee71ca5480ed9463d627ba48 100644 (file)
--- 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 bf63b466fca7dfbe0808b51ea676c9f42c3240e1..02813f56e1eec7c3743ab554b05d779cf3b6e6fe 100644 (file)
--- 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 dc0d7e9f98fdc380c12f495c03dbbf4ea6b56cf6..51f1c102971aaf4cb096eff40319d97e62dd4a84 100644 (file)
--- 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.