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. |
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 |
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)) |
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)) |