Mercurial > emacs

changeset 67158:2c91c2e7af3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-drag-move-window-bottom): Use adjust-window-trailing-edge.
author Richard M. Stallman <rms@gnu.org>
date Sun, 27 Nov 2005 19:28:58 +0000
parents 657155c4b77b
children 4de8eb0fda27
files lisp/mouse.el
diffstat 1 files changed, 3 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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.