[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d1c7ce68ba: * lisp/tab-line.el (tab-line-tab-name-format-default)
From: |
Juri Linkov |
Subject: |
master d1c7ce68ba: * lisp/tab-line.el (tab-line-tab-name-format-default): Add help-echo. |
Date: |
Thu, 30 Dec 2021 03:09:02 -0500 (EST) |
branch: master
commit d1c7ce68ba91129124b4869b15df97c63fa3d4cb
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/tab-line.el (tab-line-tab-name-format-default): Add help-echo.
(bug#52889)
---
lisp/tab-line.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index af0647acf7..003bfe1fbe 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master d1c7ce68ba: * lisp/tab-line.el (tab-line-tab-name-format-default): Add help-echo.,
Juri Linkov <=