diff options
| -rw-r--r-- | lisp/tab-line.el | 5 |
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 |