From 123060841d92a96a6af423a4118f5d0dbc7d350f Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 28 Aug 2023 09:52:36 +0300 Subject: [PATCH] * lisp/tab-bar.el: Show full tab names on tooltips (bug#65554). (tab-bar--format-tab): Use tab names for :help strings. It's useful to see original tab names when the tab-bar displays names truncated by tab-bar-auto-width, etc. (tab-bar-format-menu-bar): Fix string case for consistency with other items. --- lisp/tab-bar.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 01f250677bc..9a59e480f06 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -874,7 +874,7 @@ Used by `tab-bar-format-menu-bar'." (defun tab-bar-format-menu-bar () "Produce the Menu button for the tab bar that shows the menu bar." `((menu-bar menu-item ,tab-bar-menu-bar-button - tab-bar-menu-bar :help "Menu Bar"))) + tab-bar-menu-bar :help "Menu bar"))) (defun tab-bar-format-history () "Produce back and forward buttons for the tab bar. @@ -901,13 +901,13 @@ You can hide these buttons by customizing `tab-bar-format' and removing menu-item ,(funcall tab-bar-tab-name-format-function tab i) ignore - :help "Current tab"))) + :help ,(alist-get 'name tab)))) (t `((,(intern (format "tab-%i" i)) menu-item ,(funcall tab-bar-tab-name-format-function tab i) ,(alist-get 'binding tab) - :help "Click to visit tab")))) + :help ,(alist-get 'name tab))))) (when (alist-get 'close-binding tab) `((,(if (eq (car tab) 'current-tab) 'C-current-tab (intern (format "C-tab-%i" i))) -- 2.39.2