diff options
| author | Juri Linkov | 2025-06-04 20:22:22 +0300 |
|---|---|---|
| committer | Juri Linkov | 2025-06-04 20:23:25 +0300 |
| commit | 6f24725323dce786dd06ecf82b49c20eff8a98f7 (patch) | |
| tree | a36aa099dac253a96ebf8b19766d10dce1b4235e | |
| parent | 8c4ff60cf400dc26a2e32c9d1dbada5ecac6f2d5 (diff) | |
| download | emacs-6f24725323dce786dd06ecf82b49c20eff8a98f7.tar.gz emacs-6f24725323dce786dd06ecf82b49c20eff8a98f7.zip | |
* lisp/tab-line.el: Use 'tab-line-event-start' in remaining functions.
(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.
| -rw-r--r-- | lisp/tab-line.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/tab-line.el b/lisp/tab-line.el index b39d0d80cdf..761968b4457 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el | |||
| @@ -952,7 +952,7 @@ switches to the previous buffer in the sequence defined by | |||
| 952 | is possible when `tab-line-switch-cycling' is non-nil." | 952 | is possible when `tab-line-switch-cycling' is non-nil." |
| 953 | (interactive (list last-nonmenu-event | 953 | (interactive (list last-nonmenu-event |
| 954 | (prefix-numeric-value current-prefix-arg))) | 954 | (prefix-numeric-value current-prefix-arg))) |
| 955 | (with-selected-window (posn-window (event-start event)) | 955 | (with-selected-window (posn-window (tab-line-event-start event)) |
| 956 | (if (eq tab-line-tabs-function #'tab-line-tabs-window-buffers) | 956 | (if (eq tab-line-tabs-function #'tab-line-tabs-window-buffers) |
| 957 | (previous-buffer arg t) | 957 | (previous-buffer arg t) |
| 958 | (let* ((buffers (seq-keep | 958 | (let* ((buffers (seq-keep |
| @@ -981,7 +981,7 @@ switches to the next buffer in the sequence defined by | |||
| 981 | is possible when `tab-line-switch-cycling' is non-nil." | 981 | is possible when `tab-line-switch-cycling' is non-nil." |
| 982 | (interactive (list last-nonmenu-event | 982 | (interactive (list last-nonmenu-event |
| 983 | (prefix-numeric-value current-prefix-arg))) | 983 | (prefix-numeric-value current-prefix-arg))) |
| 984 | (with-selected-window (posn-window (event-start event)) | 984 | (with-selected-window (posn-window (tab-line-event-start event)) |
| 985 | (if (eq tab-line-tabs-function #'tab-line-tabs-window-buffers) | 985 | (if (eq tab-line-tabs-function #'tab-line-tabs-window-buffers) |
| 986 | (next-buffer arg t) | 986 | (next-buffer arg t) |
| 987 | (let* ((buffers (seq-keep | 987 | (let* ((buffers (seq-keep |