[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/tabs f458ca2: * lisp/tab-line.el: Display truncate
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] feature/tabs f458ca2: * lisp/tab-line.el: Display truncated tab name in the tooltip. |
Date: |
Mon, 2 Sep 2019 16:28:00 -0400 (EDT) |
branch: feature/tabs
commit f458ca28cb12de302de774b5bc9b43ad474745e5
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* 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 addd045..235cff1 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] feature/tabs f458ca2: * lisp/tab-line.el: Display truncated tab name in the tooltip.,
Juri Linkov <=