/[emacs]/emacs/lisp/mouse.el
ViewVC logotype

Diff of /emacs/lisp/mouse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.286 by rms, Thu Nov 3 21:37:21 2005 UTC revision 1.287 by rms, Sun Nov 27 19:28:58 2005 UTC
# Line 371  That means one whose bottom edge is at t Line 371  That means one whose bottom edge is at t
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.

Legend:
Removed from v.1.286  
changed lines
  Added in v.1.287

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26