diff options
| author | Juri Linkov <juri@linkov.net> | 2019-12-16 01:03:55 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-12-16 01:03:55 +0200 |
| commit | b73c21fa97a4417eeced4b52e9c73100d0693ba9 (patch) | |
| tree | e318713bf84184e365f670b86683632cce43b8dc /lisp/tab-bar.el | |
| parent | 35388c56795822d7811878dcf1e105a369ffb044 (diff) | |
| download | emacs-b73c21fa97a4417eeced4b52e9c73100d0693ba9.tar.gz | |
* lisp/tab-bar.el (tab-bar-select-tab): Message about selected tab (bug#38624)
Diffstat (limited to 'lisp/tab-bar.el')
| -rw-r--r-- | lisp/tab-bar.el | 8 |
1 files 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)))) |