master a6df8f9f99 1/2: * lisp/tab-line.el (tab-line-format): Use mode-line-window-selected-p.

[Juri Linkov]

branch: master
commit a6df8f9f990e2553e9b85b273395a4142a427bf8
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * 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 4d9b5e0ab7..80b0aabd77 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))))