]> git.eshelyaron.com Git - emacs.git/commitdiff
(xterm-mouse-event): If the buffer displayed in the
authorEli Zaretskii <eliz@gnu.org>
Mon, 25 Jun 2001 10:39:06 +0000 (10:39 +0000)
committerEli Zaretskii <eliz@gnu.org>
Mon, 25 Jun 2001 10:39:06 +0000 (10:39 +0000)
window where they clicked the mouse has a header line, adjust
vertical movement by one.

lisp/ChangeLog
lisp/xt-mouse.el

index f2eead76bdc8521f592a7cee437f30daf26aa077..4591bcb463f5d51539d007be0fb1bae82397ca06 100644 (file)
@@ -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
index b87061e5316924ef5295f1ac88ec70474a82dd2f..ef32a802ad439b0fd8856602a7495bfd0ed5d5c2 100644 (file)
                  (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))