# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 993465487 0
# Node ID 364478eab234bfe184adc6df4806d9a1b0bf29c5
# Parent  c6545dffc123b772b2b5858869e44c4f90b35320
(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 -r c6545dffc123 -r 364478eab234 lisp/xt-mouse.el
--- 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))