From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 25 Jun 2001 10:39:06 +0000 (+0000)
Subject: (xterm-mouse-event): If the buffer displayed in the
X-Git-Tag: emacs-pretest-21.0.104~160
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9501b9867cd1e6815ca857ca053a605ddb000fa4;p=emacs.git

(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 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))