From ccbdd0e2b0a57415b8783efe02557117949dc9c1 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. (cherry picked from commit 6f24725323dce786dd06ecf82b49c20eff8a98f7) --- 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 fa450be7221..0b8f5919e35 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -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 -- 2.39.5