Commit 1598de6e authored by Juri Linkov's avatar Juri Linkov

* lisp/tab-line.el (tab-line-tab-name): Try to use truncate-string-to-width.

parent 5458493d
Pipeline #3041 failed with stage
in 7 minutes and 37 seconds
...@@ -126,8 +126,8 @@ Reduce tab width proportionally to space taken by other tabs." ...@@ -126,8 +126,8 @@ Reduce tab width proportionally to space taken by other tabs."
(max 1 (- (/ (window-width) (length buffers)) 3))))) (max 1 (- (/ (window-width) (length buffers)) 3)))))
(if (or (not limit) (< (length tab-name) limit)) (if (or (not limit) (< (length tab-name) limit))
tab-name tab-name
(propertize (concat tab-line-tab-name-ellipsis (propertize (truncate-string-to-width tab-name limit nil nil
(substring tab-name (- limit))) tab-line-tab-name-ellipsis)
'help-echo tab-name)))) 'help-echo tab-name))))
(defvar tab-line-tabs-limit 15 (defvar tab-line-tabs-limit 15
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment