Use mode-line-window-selected-p in tab-line-tab-name-format-default.

* lisp/tab-line.el (tab-line-tab-name-format-default):
Use the recently added function 'mode-line-window-selected-p'
for the face 'tab-line-tab-current' (bug#53629).
This commit is contained in:
Juri Linkov 2022-02-06 19:58:43 +02:00
parent 1efc94e7ce
commit 0f38e2393d

View file

@ -486,7 +486,7 @@ which the tab will represent."
(funcall tab-line-tab-name-function tab tabs)
(cdr (assq 'name tab))))
(face (if selected-p
(if (eq (selected-window) (old-selected-window))
(if (mode-line-window-selected-p)
'tab-line-tab-current
'tab-line-tab)
'tab-line-tab-inactive)))