changeset 38178:364478eab234

(xterm-mouse-event): If the buffer displayed in the window where they clicked the mouse has a header line, adjust vertical movement by one.
author Eli Zaretskii <eliz@gnu.org>
date Mon, 25 Jun 2001 10:38:07 +0000
parents c6545dffc123
children ce5574d763e1
files lisp/xt-mouse.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/xt-mouse.el	Mon Jun 25 10:04:27 2001 +0000
+++ b/lisp/xt-mouse.el	Mon Jun 25 10:38:07 2001 +0000
@@ -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))