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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 0aab1a99bb63eee842dc9e182f58a1e266842da9..2c5d9cbddd6c5067e4d967aeb22255c7c6eeeb10 100644 (file)
--- 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.