mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Implement tab line dragging with mouse (Bug#76084)

Browse source 
* lisp/mouse.el (mouse-drag-line): Allow tab line dragging if
there's a window above.  Consider tab line height when
calculating 'position'.  Add 'tab-line' binding to transient
map.
(mouse-drag-tab-line): Have it drag the tab line only (and not
the entire frame) when the tab line is between two windows.
This commit is contained in:
Martin Rudalics 2025-02-10 10:58:05 +01:00
parent 4d1ceac9f9
commit efa9b97b45
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/mouse.el
View file

@ -844,7 +844,7 @@ must be one of the symbols `header', `mode', or `vertical'."
;; Decide on whether we are allowed to track at all and whose
;; window's edge we drag.
(cond
((eq line 'header)
((memq line '(header tab))
;; Drag bottom edge of window above the header line.
(setq window (window-in-direction 'above window t)))
((eq line 'mode))
@ -903,10 +903,13 @@ must be one of the symbols `header', `mode', or `vertical'."
(when (window-live-p posn-window)
;; Add top edge of `posn-window' to `position'.
(setq position (+ (window-pixel-top posn-window) position))
;; If necessary, add height of header line to `position'
;; If necessary, add height of header and tab line to
;; `position'.
(when (memq (posn-area start)
'(nil left-fringe right-fringe left-margin right-margin))
(setq position (+ (window-header-line-height posn-window) position))))
(setq position (+ (window-header-line-height posn-window)
(window-tab-line-height posn-window)
position))))
;; When the cursor overshoots after shrinking a window to its
;; minimum size and the dragging direction changes, have the
;; cursor first catch up with the window edge.
@ -947,6 +950,7 @@ must be one of the symbols `header', `mode', or `vertical'."
;; with a mode-line, header-line or vertical-line prefix ...
(define-key map [mode-line] map)
(define-key map [header-line] map)
(define-key map [tab-line] map)
(define-key map [vertical-line] map)
;; ... and some maybe even with a right- or bottom-divider
;; or left- or right-margin prefix ...
@ -1035,8 +1039,9 @@ START-EVENT is the starting mouse event of the drag action."
(interactive "e")
(let* ((start (event-start start-event))
(window (posn-window start)))
(when (and (window-live-p window)
(window-at-side-p window 'top))
(if (and (window-live-p window)
(not (window-at-side-p window 'top)))
(mouse-drag-line start-event 'tab)
(let ((frame (window-frame window)))
(when (frame-parameter frame 'drag-with-tab-line)
(mouse-drag-frame-move start-event))))))