# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 970985701 0
# Node ID 5bccbf00889a12b69af956ad5dc118574bee5145
# Parent  841de3e1ce86b724636c5b3574b7849d1316e7a8
(mouse-drag-mode-line-1): Fix an off-by-one error in
computing growth when dragging the header line.

diff -r 841de3e1ce86 -r 5bccbf00889a lisp/mouse.el
--- a/lisp/mouse.el	Sun Oct 08 06:10:40 2000 +0000
+++ b/lisp/mouse.el	Sun Oct 08 06:15:01 2000 +0000
@@ -380,10 +380,11 @@
 			(when (< (- y top -1) window-min-height)
 			  (setq y (+ top window-min-height -1)))
 			(setq growth (- y bot -1)))
-		       (t
-			(when (< (- bot y -1) window-min-height)
-			  (setq y (- bot window-min-height -1)))
-			(setq growth (- top y -1))))
+		       (t	; header line
+			(when (< (- bot y) window-min-height)
+			  (setq y (- bot window-min-height)))
+			;; The window's top includes the header line!
+			(setq growth (- top y))))
 		 (setq wconfig (current-window-configuration))
 		 
 		 ;; Check for an error case.