mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Juri Linkov 2019-09-02 23:27:32 +03:00
parent 5bf45ec48b
commit f458ca28cb
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/tab-line.el
View file

@ -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