masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 03:13:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* lisp/tab-line.el: Use 'tab-line-event-start' in remaining functions.

Browse source 
(tab-line-switch-to-prev-tab, tab-line-switch-to-next-tab):
Use 'tab-line-event-start' instead of 'event-start'
like in all other functions.
This commit is contained in:
Juri Linkov 2025-06-04 20:22:22 +03:00
parent 8c4ff60cf4
commit 6f24725323
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/tab-line.el
View file

@ -952,7 +952,7 @@ switches to the previous buffer in the sequence defined by
is possible when `tab-line-switch-cycling' is non-nil." is possible when `tab-line-switch-cycling' is non-nil."
(interactive (list last-nonmenu-event (interactive (list last-nonmenu-event
(prefix-numeric-value current-prefix-arg))) (prefix-numeric-value current-prefix-arg)))
(with-selected-window (posn-window (event-start event)) (with-selected-window (posn-window (tab-line-event-start event))
(if (eq tab-line-tabs-function #'tab-line-tabs-window-buffers) (if (eq tab-line-tabs-function #'tab-line-tabs-window-buffers)
(previous-buffer arg t) (previous-buffer arg t)
(let* ((buffers (seq-keep (let* ((buffers (seq-keep
@ -981,7 +981,7 @@ switches to the next buffer in the sequence defined by
is possible when `tab-line-switch-cycling' is non-nil." is possible when `tab-line-switch-cycling' is non-nil."
(interactive (list last-nonmenu-event (interactive (list last-nonmenu-event
(prefix-numeric-value current-prefix-arg))) (prefix-numeric-value current-prefix-arg)))
(with-selected-window (posn-window (event-start event)) (with-selected-window (posn-window (tab-line-event-start event))
(if (eq tab-line-tabs-function #'tab-line-tabs-window-buffers) (if (eq tab-line-tabs-function #'tab-line-tabs-window-buffers)
(next-buffer arg t) (next-buffer arg t)
(let* ((buffers (seq-keep (let* ((buffers (seq-keep