(xterm-mouse-event): If the buffer displayed in the

window where they clicked the mouse has a header line, adjust
vertical movement by one.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2eead76bdc8521f592a7cee437f30daf26aa077..4591bcb463f5d51539d007be0fb1bae82397ca06 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-06-25  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * xt-mouse.el (xterm-mouse-event): If the buffer displayed in the
+       window where they clicked the mouse has a header line, adjust
+       vertical movement by one.
+
 2001-06-25  Milan Zamazal  <pdm@zamazal.org>
 
        * progmodes/glasses.el (glasses-make-readable): Consider

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index b87061e5316924ef5295f1ac88ec70474a82dd2f..ef32a802ad439b0fd8856602a7495bfd0ed5d5c2 100644 (file)
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -123,7 +123,12 @@
                  (progn
                    (select-window window)
                    (goto-char (window-start window))
-                   (move-to-window-line  (cdr where))
+                   (move-to-window-line (-
+                                         (cdr where)
+                                         (if (or header-line-format
+                                                 default-header-line-format)
+                                             1
+                                           0)))
                    (move-to-column (+ (car where) (current-column)
                                       (if (string-match "\\` \\*Minibuf"
                                                         (buffer-name))