From 6f24725323dce786dd06ecf82b49c20eff8a98f7 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 4 Jun 2025 20:22:22 +0300 Subject: [PATCH] * 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. --- lisp/tab-line.el | 4 ++-- 1 file 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 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