[Emacs-diffs] Changes to emacs/lisp/mouse.el

[Richard M . Stallman]

Index: emacs/lisp/mouse.el
diff -c emacs/lisp/mouse.el:1.286 emacs/lisp/mouse.el:1.287
*** emacs/lisp/mouse.el:1.286   Thu Nov  3 21:37:21 2005
--- emacs/lisp/mouse.el Sun Nov 27 19:28:58 2005
***************
*** 371,386 ****
  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))))
  
  (defsubst mouse-drag-move-window-top (window growth)
    "Move the top of WINDOW up or down by GROWTH lines.
--- 371,379 ----
  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."
!   (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.