procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 2005-11-27 19:28:58 +00:00
parent 7279aaf668
commit 91d99be6a8
1 changed files with 3 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/mouse.el
View file

@ -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.