* 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).

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 4d9b5e0ab7a4c03a89e9a4aca0d12545b1f74245..80b0aabd7769f7cb1249dda36f97d750d86d8127 100644 (file)
--- 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))))