From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 27 Nov 2005 19:28:58 +0000 (+0000)
Subject: (mouse-drag-move-window-bottom): Use adjust-window-trailing-edge.
X-Git-Tag: emacs-pretest-22.0.90~5645
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91d99be6a8fb41c20884408ca0ee3ce50574a578;p=emacs.git

(mouse-drag-move-window-bottom): Use adjust-window-trailing-edge.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 0aab1a99bb6..2c5d9cbddd6 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -371,16 +371,9 @@ That means one whose bottom edge is at the same height as WINDOW's top edge."
 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))))
+  (condition-case nil
+      (adjust-window-trailing-edge window growth nil)
+    (error nil)))
 
 (defsubst mouse-drag-move-window-top (window growth)
   "Move the top of WINDOW up or down by GROWTH lines.