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

(bug#52889)
2021-12-30 10:08:37 +02:00
parent 37ad776b9e
commit d1c7ce68ba
1 changed files with 2 additions and 0 deletions
--- 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))