# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1133119738 0
# Node ID 2c91c2e7af3a810afe1425e8c46619575dd98535
# Parent  657155c4b77bcd936e3394a491455d695ff76130
(mouse-drag-move-window-bottom): Use adjust-window-trailing-edge.

diff -r 657155c4b77b -r 2c91c2e7af3a lisp/mouse.el
--- a/lisp/mouse.el	Sun Nov 27 19:27:13 2005 +0000
+++ b/lisp/mouse.el	Sun Nov 27 19:28:58 2005 +0000
@@ -371,16 +371,9 @@
 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.