[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/tabs 1598de6: * lisp/tab-line.el (tab-line-tab-nam
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] feature/tabs 1598de6: * lisp/tab-line.el (tab-line-tab-name): Try to use truncate-string-to-width. |
Date: |
Tue, 3 Sep 2019 16:50:57 -0400 (EDT) |
branch: feature/tabs
commit 1598de6ef216746649493b788f98b4972fd750af
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* lisp/tab-line.el (tab-line-tab-name): Try to use truncate-string-to-width.
---
lisp/tab-line.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index da85925..c678ce5 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -126,8 +126,8 @@ 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
- (propertize (concat tab-line-tab-name-ellipsis
- (substring tab-name (- limit)))
+ (propertize (truncate-string-to-width tab-name limit nil nil
+ tab-line-tab-name-ellipsis)
'help-echo tab-name))))
(defvar tab-line-tabs-limit 15
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] feature/tabs 1598de6: * lisp/tab-line.el (tab-line-tab-name): Try to use truncate-string-to-width.,
Juri Linkov <=