From: Juri Linkov <juri@linkov.net>
Date: Sun, 6 Feb 2022 17:58:43 +0000 (+0200)
Subject: Use mode-line-window-selected-p in tab-line-tab-name-format-default.
X-Git-Tag: emacs-29.0.90~2478
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f38e2393dd3f1731f6d1d7bc098a1c774eb6800;p=emacs.git

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

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 24033945f09..4d9b5e0ab7a 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)))