* lisp/tab-bar.el (tab-bar-select-tab): Message about selected tab (bug#38624)

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index e045a778656e4b353e0ae999972a9e648e7e0ce2..180db4d3e0ce90e5dd65acd28dbfd916a99ab0fd 100644 (file)
--- 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))))