diff options
author | Juri Linkov <juri@linkov.net> | 2022-02-10 20:52:55 +0200 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2022-02-10 20:52:55 +0200 |
commit | a6df8f9f990e2553e9b85b273395a4142a427bf8 (patch) | |
tree | c52f2f2d2eca08e80f0d97c3af55de6cb913a922 | |
parent | 64d211179db9de955a793a158bc969d9ca568712 (diff) | |
download | emacs-a6df8f9f990e2553e9b85b273395a4142a427bf8.tar.gz |
* lisp/tab-line.el (tab-line-format): Use mode-line-window-selected-p.
Recently 'mode-line-window-selected-p' was added to
'tab-line-tab-name-format-default'. Now add the same to another
place that handles the face 'tab-line-tab-current' (bug#53629).
-rw-r--r-- | lisp/tab-line.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/tab-line.el b/lisp/tab-line.el index 4d9b5e0ab7a..80b0aabd776 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -591,7 +591,7 @@ For use in `tab-line-tab-face-functions'." ;; handle tab-line scrolling (window-parameter nil 'tab-line-hscroll) ;; for setting face 'tab-line-tab-current' - (eq (selected-window) (old-selected-window)) + (mode-line-window-selected-p) (and (memq 'tab-line-tab-face-modified tab-line-tab-face-functions) (buffer-file-name) (buffer-modified-p)))) |