371 |
Move it down if GROWTH is positive, or up if GROWTH is negative. |
Move it down if GROWTH is positive, or up if GROWTH is negative. |
372 |
If this would make WINDOW too short, |
If this would make WINDOW too short, |
373 |
shrink the window or windows above it to make room." |
shrink the window or windows above it to make room." |
374 |
(let ((excess (- window-min-height (+ (window-height window) growth)))) |
(condition-case nil |
375 |
;; EXCESS is the number of lines we need to take from windows above. |
(adjust-window-trailing-edge window growth nil) |
376 |
(if (> excess 0) |
(error nil))) |
|
;; 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)))) |
|
377 |
|
|
378 |
(defsubst mouse-drag-move-window-top (window growth) |
(defsubst mouse-drag-move-window-top (window growth) |
379 |
"Move the top of WINDOW up or down by GROWTH lines. |
"Move the top of WINDOW up or down by GROWTH lines. |