master 0f38e2393d 2/2: Use mode-line-window-selected-p in tab-line-tab-name-format-default.

[Juri Linkov]

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

    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).
---
 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 24033945f0..4d9b5e0ab7 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -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)))