From b73c21fa97a4417eeced4b52e9c73100d0693ba9 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 16 Dec 2019 01:03:55 +0200 Subject: [PATCH] * lisp/tab-bar.el (tab-bar-select-tab): Message about selected tab (bug#38624) --- lisp/tab-bar.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index e045a778656..180db4d3e0c 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -582,7 +582,10 @@ to the numeric argument. ARG counts from 1." (when from-index (setf (nth from-index tabs) from-tab)) - (setf (nth to-index tabs) (tab-bar--current-tab (nth to-index tabs)))) + (setf (nth to-index tabs) (tab-bar--current-tab (nth to-index tabs))) + + (unless tab-bar-mode + (message "Selected tab '%s'" (alist-get 'name to-tab)))) (force-mode-line-update)))) @@ -869,7 +872,8 @@ for the last tab on a frame is determined by (1- current-index))) ('recent (tab-bar--tab-index-recent 1 tabs)))))) (setq to-index (max 0 (min (or to-index 0) (1- (length tabs))))) - (tab-bar-select-tab (1+ to-index)) + (let ((inhibit-message t)) ; avoid message about selected tab + (tab-bar-select-tab (1+ to-index))) ;; Re-read tabs after selecting another tab (setq tabs (funcall tab-bar-tabs-function)))) -- 2.39.2