(mouse-drag-mode-line-1): When dragging a mode line upward,

shrink the windows above as necessary to get space.
(mouse-drag-move-window-bottom, mouse-drag-window-above): New fns.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2d5b797cd97f2ab856e748806624f113c01d842d..a2bd991c2aad0868d4b0bf38667bbe5f2c85c9ff 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-12-28  Richard M. Stallman  <rms@gnu.org>
 
+       * mouse.el (mouse-drag-mode-line-1): When dragging a mode line upward,
+       shrink the windows above as necessary to get space.
+       (mouse-drag-move-window-bottom, mouse-drag-window-above): New fns.
+
        * net/ange-ftp.el (ange-ftp-allow-child-lookup): Always return nil.
        This fixes a bug that treated all files as directories.
        (ange-ftp-insert-directory): Explicitly follow symlinks.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 15e5c794bc63168c4c413dc2b69283d7f44d061d..ba60c7b8a924d4b3cd04e60fc5656dbc98ab3cab 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -302,10 +302,40 @@ This command must be bound to a mouse click."
        (split-window-horizontally
         (min (max new-width first-col) last-col))))))
 
+(defun mouse-drag-window-above (window)
+  "Return the (or a) window directly above WINDOW.
+That means one whose bottom edge is at the same height as WINDOW's top edge."
+  (let ((top (nth 1 (window-edges window)))
+       (start-window window)
+       above-window)
+    (setq window (previous-window window 0))
+    (while (and (not above-window) (not (eq window start-window)))
+      (if (= (+ (window-height window) (nth 1 (window-edges window)))
+            top)
+         (setq above-window window))
+      (setq window (previous-window window)))
+    above-window))
+
+(defun mouse-drag-move-window-bottom (window growth)
+  "Move the bottom 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."
+  (let ((excess (- window-min-height (+ (window-height window) growth))))
+    ;; EXCESS is the number of lines we need to take from windows above.
+    (if (> excess 0)
+       ;; This can recursively shrink windows all the way up.
+       (let ((window-above (mouse-drag-window-above window)))
+         (if window-above
+             (mouse-drag-move-window-bottom window-above (- excess))))))
+  (save-selected-window
+    (select-window window)
+    (enlarge-window growth nil (> growth 0))))
+
 (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.
-MODE-LINE-P non-nil means a mode line is dragged."
+MODE-LINE-P non-nil means dragging a mode line; nil means a header line."
   ;; Give temporary modes such as isearch a chance to turn off.
   (run-hooks 'mouse-leave-buffer-hook)
   (let* ((done nil)
@@ -375,10 +405,6 @@ MODE-LINE-P non-nil means a mode line is dragged."
 
                 ;; compute size change needed
                 (cond (mode-line-p
-                       ;; Scale back a move that would make the
-                       ;; window too short.
-                       (when (< (- y top -1) window-min-height)
-                         (setq y (+ top window-min-height -1)))
                        (setq growth (- y bot -1)))
                       (t       ; header line
                        (when (< (- bot y) window-min-height)
@@ -412,7 +438,7 @@ MODE-LINE-P non-nil means a mode line is dragged."
                       (select-window start-event-window))
                   ;; no.  grow/shrink the selected window
                   ;(message "growth = %d" growth)
-                  (enlarge-window growth))
+                  (mouse-drag-move-window-bottom start-event-window growth))
 
                 ;; if this window's growth caused another
                 ;; window to be deleted because it was too
@@ -426,6 +452,7 @@ MODE-LINE-P non-nil means a mode line is dragged."
                 ;; around it.
                 (when (or (/= start-nwindows (count-windows t))
                           (and (not should-enlarge-minibuffer)
+                               (> growth 0)
                                mode-line-p
                                (/= top (nth 1 (window-edges)))))
                   (set-window-configuration wconfig)))))))))