martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* 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."
(interactive (list last-nonmenu-event
(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)
(previous-buffer arg t)
(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."
(interactive (list last-nonmenu-event
(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)
(next-buffer arg t)
(let* ((buffers (seq-keep