[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mouse.el
From: |
David Ponce |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mouse.el |
Date: |
Mon, 18 Oct 2004 05:37:10 -0400 |
Index: emacs/lisp/mouse.el
diff -c emacs/lisp/mouse.el:1.250 emacs/lisp/mouse.el:1.251
*** emacs/lisp/mouse.el:1.250 Sat Oct 16 15:30:56 2004
--- emacs/lisp/mouse.el Mon Oct 18 09:29:26 2004
***************
*** 338,343 ****
--- 338,354 ----
(select-window window)
(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)
"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.
***************
*** 444,450 ****
(select-window start-event-window))
;; no. grow/shrink the selected window
;(message "growth = %d" growth)
! (mouse-drag-move-window-bottom start-event-window growth))
;; if this window's growth caused another
;; window to be deleted because it was too
--- 455,463 ----
(select-window start-event-window))
;; no. grow/shrink the selected window
;(message "growth = %d" 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
;; window to be deleted because it was too