From: Juri Linkov <juri@linkov.net>
Date: Mon, 2 Sep 2019 20:27:32 +0000 (+0300)
Subject: * lisp/tab-line.el: Display truncated tab name in the tooltip.
X-Git-Tag: emacs-27.0.90~1328^2~20
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f458ca28cb12de302de774b5bc9b43ad474745e5;p=emacs.git

* lisp/tab-line.el: Display truncated tab name in the tooltip.
---

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index addd0459c95..235cff19d97 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -126,7 +126,9 @@ Reduce tab width proportionally to space taken by other tabs."
                  (max 1 (- (/ (window-width) (length buffers)) 3)))))
     (if (or (not limit) (< (length tab-name) limit))
         tab-name
-      (concat tab-line-tab-name-ellipsis (substring tab-name (- limit))))))
+      (propertize (concat tab-line-tab-name-ellipsis
+                          (substring tab-name (- limit)))
+                  'help-echo tab-name))))
 
 (defun tab-line-format ()
   "Template for displaying tab line for selected window."
@@ -149,7 +151,6 @@ Reduce tab width proportionally to space taken by other tabs."
                 tab-line-separator
                 (apply 'propertize (tab-line-tab-name b buffers)
                        `(
-                         help-echo "Click to visit tab"
                          buffer ,b
                          face ,(if (eq b buffer)
                                    'tab-line-tab