# HG changeset patch
# User David Ponce <david@dponce.com>
# Date 1098091766 0
# Node ID f2e8ab894ad319a4f0f97d21235b060d8db24bca
# Parent  395e7df45782ed5af6b58386cdac212a2f8bf924
(mouse-drag-move-window-top): New function.
(mouse-drag-mode-line-1): Use it.

diff -r 395e7df45782 -r f2e8ab894ad3 lisp/mouse.el
--- a/lisp/mouse.el	Mon Oct 18 07:31:43 2004 +0000
+++ b/lisp/mouse.el	Mon Oct 18 09:29:26 2004 +0000
@@ -338,6 +338,17 @@
     (select-window window)
     (enlarge-window growth nil (> growth 0))))
 
+(defsubst mouse-drag-move-window-top (window growth)
+  "Move the top of WINDOW up or down by GROWTH lines.
+Move it down if GROWTH is positive, or up if GROWTH is negative.
+If this would make WINDOW too short, shrink the window or windows
+above it to make room."
+  ;; Moving the top of WINDOW is actually moving the bottom of the
+  ;; window above.
+  (let ((window-above (mouse-drag-window-above window)))
+    (and window-above
+	 (mouse-drag-move-window-bottom window-above (- growth)))))
+
 (defun mouse-drag-mode-line-1 (start-event mode-line-p)
   "Change the height of a window by dragging on the mode or header line.
 START-EVENT is the starting mouse-event of the drag action.
@@ -444,7 +455,9 @@
 		       (select-window start-event-window))
 		   ;; no.  grow/shrink the selected window
 		   ;(message "growth = %d" growth)
-		   (mouse-drag-move-window-bottom start-event-window growth))
+		   (if mode-line-p
+		       (mouse-drag-move-window-bottom start-event-window growth)
+		     (mouse-drag-move-window-top start-event-window growth)))
 
 		 ;; if this window's growth caused another
 		 ;; window to be deleted because it was too