From a6df8f9f990e2553e9b85b273395a4142a427bf8 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 10 Feb 2022 20:52:55 +0200 Subject: [PATCH] * 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). --- lisp/tab-line.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 2.39.5