Commit 7a892a8b authored by David Ponce's avatar David Ponce
Browse files

(mouse-drag-move-window-top): New function.

(mouse-drag-mode-line-1): Use it.
parent e14105f6
2004-10-18 David Ponce <david@dponce.com>
* mouse.el (mouse-drag-move-window-top): New function.
(mouse-drag-mode-line-1): Use it.
2004-10-18 Thien-Thi Nguyen <ttn@gnu.org> 2004-10-18 Thien-Thi Nguyen <ttn@gnu.org>
* info.el (Info-fontify-node): For multiline refs, * info.el (Info-fontify-node): For multiline refs,
......
...@@ -338,6 +338,17 @@ shrink the window or windows above it to make room." ...@@ -338,6 +338,17 @@ shrink the window or windows above it to make room."
(select-window window) (select-window window)
(enlarge-window growth nil (> growth 0)))) (enlarge-window growth nil (> growth 0))))
(defsubst mouse-drag-move-window-top (window growth)
"Move the top of WINDOW up or down by GROWTH lines.
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."
;; Moving the top of WINDOW is actually moving the bottom of the
;; window above.
(let ((window-above (mouse-drag-window-above window)))
(and window-above
(mouse-drag-move-window-bottom window-above (- growth)))))
(defun mouse-drag-mode-line-1 (start-event mode-line-p) (defun mouse-drag-mode-line-1 (start-event mode-line-p)
"Change the height of a window by dragging on the mode or header line. "Change the height of a window by dragging on the mode or header line.
START-EVENT is the starting mouse-event of the drag action. START-EVENT is the starting mouse-event of the drag action.
...@@ -444,7 +455,9 @@ MODE-LINE-P non-nil means dragging a mode line; nil means a header line." ...@@ -444,7 +455,9 @@ MODE-LINE-P non-nil means dragging a mode line; nil means a header line."
(select-window start-event-window)) (select-window start-event-window))
;; no. grow/shrink the selected window ;; no. grow/shrink the selected window
;(message "growth = %d" growth) ;(message "growth = %d" growth)
(mouse-drag-move-window-bottom start-event-window growth)) (if mode-line-p
(mouse-drag-move-window-bottom start-event-window growth)
(mouse-drag-move-window-top start-event-window growth)))
;; if this window's growth caused another ;; if this window's growth caused another
;; window to be deleted because it was too ;; window to be deleted because it was too
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment