]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/tab-line.el: Use 'tab-line-event-start' in remaining functions.
authorJuri Linkov <juri@linkov.net>
Wed, 4 Jun 2025 17:22:22 +0000 (20:22 +0300)
committerEshel Yaron <me@eshelyaron.com>
Sat, 7 Jun 2025 20:00:46 +0000 (22:00 +0200)
(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.

(cherry picked from commit 6f24725323dce786dd06ecf82b49c20eff8a98f7)

lisp/tab-line.el

index fa450be72216031c1037a936b2357b7ae310613e..0b8f5919e3576ad632f98ef763a9c2b2d81c651f 100644 (file)
@@ -951,7 +951,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
@@ -980,7 +980,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