procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juri Linkov 2019-12-16 01:03:55 +02:00
parent 35388c5679
commit b73c21fa97
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/tab-bar.el
View file

@ -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))))