branch: externals/marginalia
commit ac53a00c1e1742893376fcab57bdedeb528dd0e1
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
optimize marginalia--truncate
---
marginalia.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 0198522..2bff8cc 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -221,9 +221,13 @@ determine it."
(defvar marginalia--original-category nil
"Original category reported by completion metadata.")
-(defsubst marginalia--truncate (str width)
+(defun marginalia--truncate (str width)
"Truncate string STR to WIDTH."
- (truncate-string-to-width (car (split-string str "\n")) width 0 32 "…"))
+ (truncate-string-to-width
+ (if-let (pos (string-match-p "\n" str))
+ (substring str 0 pos)
+ str)
+ width 0 32 "…"))
(defsubst marginalia--align (str)
"Align STR at the right margin."
