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

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

2 files changed, 12 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2eead76bdc..4591bcb463f 100644
--- 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 b87061e5316..ef32a802ad4 100644
--- 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))