/[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.241.8.3 by miles, Sun Jul 11 22:07:44 2004 UTC revision 1.241.8.4 by miles, Fri Oct 22 10:13:29 2004 UTC
# Line 338  shrink the window or windows above it to Line 338  shrink the window or windows above it to
338      (select-window window)      (select-window window)
339      (enlarge-window growth nil (> growth 0))))      (enlarge-window growth nil (> growth 0))))
340    
341    (defsubst mouse-drag-move-window-top (window growth)
342      "Move the top of WINDOW up or down by GROWTH lines.
343    Move it down if GROWTH is positive, or up if GROWTH is negative.
344    If this would make WINDOW too short, shrink the window or windows
345    above it to make room."
346      ;; Moving the top of WINDOW is actually moving the bottom of the
347      ;; window above.
348      (let ((window-above (mouse-drag-window-above window)))
349        (and window-above
350             (mouse-drag-move-window-bottom window-above (- growth)))))
351    
352  (defun mouse-drag-mode-line-1 (start-event mode-line-p)  (defun mouse-drag-mode-line-1 (start-event mode-line-p)
353    "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.
354  START-EVENT is the starting mouse-event of the drag action.  START-EVENT is the starting mouse-event of the drag action.
# Line 444  MODE-LINE-P non-nil means dragging a mod Line 455  MODE-LINE-P non-nil means dragging a mod
455                         (select-window start-event-window))                         (select-window start-event-window))
456                     ;; no.  grow/shrink the selected window                     ;; no.  grow/shrink the selected window
457                     ;(message "growth = %d" growth)                     ;(message "growth = %d" growth)
458                     (mouse-drag-move-window-bottom start-event-window growth))                     (if mode-line-p
459                           (mouse-drag-move-window-bottom start-event-window growth)
460                         (mouse-drag-move-window-top start-event-window growth)))
461    
462                   ;; if this window's growth caused another                   ;; if this window's growth caused another
463                   ;; window to be deleted because it was too                   ;; window to be deleted because it was too
# Line 1097  and set mark at the beginning. Line 1110  and set mark at the beginning.
1110  Prefix arguments are interpreted as with \\[yank].  Prefix arguments are interpreted as with \\[yank].
1111  If `mouse-yank-at-point' is non-nil, insert at point  If `mouse-yank-at-point' is non-nil, insert at point
1112  regardless of where you click."  regardless of where you click."
1113    (interactive "e\nP")    (interactive "*e\nP")
1114    ;; Give temporary modes such as isearch a chance to turn off.    ;; Give temporary modes such as isearch a chance to turn off.
1115    (run-hooks 'mouse-leave-buffer-hook)    (run-hooks 'mouse-leave-buffer-hook)
1116    (or mouse-yank-at-point (mouse-set-point click))    (or mouse-yank-at-point (mouse-set-point click))
# Line 1399  The function returns a non-nil value if Line 1412  The function returns a non-nil value if
1412  Move point to the end of the inserted text.  Move point to the end of the inserted text.
1413  If `mouse-yank-at-point' is non-nil, insert at point  If `mouse-yank-at-point' is non-nil, insert at point
1414  regardless of where you click."  regardless of where you click."
1415    (interactive "e")    (interactive "*e")
1416    ;; Give temporary modes such as isearch a chance to turn off.    ;; Give temporary modes such as isearch a chance to turn off.
1417    (run-hooks 'mouse-leave-buffer-hook)    (run-hooks 'mouse-leave-buffer-hook)
1418    (or mouse-yank-at-point (mouse-set-point click))    (or mouse-yank-at-point (mouse-set-point click))

Legend:
Removed from v.1.241.8.3  
changed lines
  Added in v.1.241.8.4

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