From: Juri Linkov <juri@linkov.net>
Date: Thu, 30 Dec 2021 08:08:37 +0000 (+0200)
Subject: * lisp/tab-line.el (tab-line-tab-name-format-default): Add help-echo.
X-Git-Tag: emacs-29.0.90~3352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1c7ce68ba91129124b4869b15df97c63fa3d4cb;p=emacs.git

* lisp/tab-line.el (tab-line-tab-name-format-default): Add help-echo.

(bug#52889)
---

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index af0647acf7c..003bfe1fbe3 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -495,6 +495,8 @@ which the tab will represent."
     (apply 'propertize
            (concat (propertize name
                                'keymap tab-line-tab-map
+                               'help-echo (if selected-p "Current tab"
+                                            "Click to select tab")
                                ;; Don't turn mouse-1 into mouse-2 (bug#49247)
                                'follow-link 'ignore)
                    (or (and (or buffer-p (assq 'buffer tab) (assq 'close tab))