aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/tab-line.el5
1 files 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."
126 (max 1 (- (/ (window-width) (length buffers)) 3))))) 126 (max 1 (- (/ (window-width) (length buffers)) 3)))))
127 (if (or (not limit) (< (length tab-name) limit)) 127 (if (or (not limit) (< (length tab-name) limit))
128 tab-name 128 tab-name
129 (concat tab-line-tab-name-ellipsis (substring tab-name (- limit)))))) 129 (propertize (concat tab-line-tab-name-ellipsis
130 (substring tab-name (- limit)))
131 'help-echo tab-name))))
130 132
131(defun tab-line-format () 133(defun tab-line-format ()
132 "Template for displaying tab line for selected window." 134 "Template for displaying tab line for selected window."
@@ -149,7 +151,6 @@ Reduce tab width proportionally to space taken by other tabs."
149 tab-line-separator 151 tab-line-separator
150 (apply 'propertize (tab-line-tab-name b buffers) 152 (apply 'propertize (tab-line-tab-name b buffers)
151 `( 153 `(
152 help-echo "Click to visit tab"
153 buffer ,b 154 buffer ,b
154 face ,(if (eq b buffer) 155 face ,(if (eq b buffer)
155 'tab-line-tab 156 'tab-line-tab