[elpa] externals/marginalia ac53a00 097/241: optimize marginalia--truncate

[Stefan Monnier]

branch: externals/marginalia
commit ac53a00c1e1742893376fcab57bdedeb528dd0e1
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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."