From f458ca28cb12de302de774b5bc9b43ad474745e5 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 2 Sep 2019 23:27:32 +0300 Subject: [PATCH] * lisp/tab-line.el: Display truncated tab name in the tooltip. --- lisp/tab-line.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 2.39.2