Use truncate-string-ellipsis by default

1 files changed, 5 insertions, 4 deletions

@@ -34,12 +34,12 @@
 (defun +string-truncate (s length &optional ellipsis alignment)
   "Return S, shortened to LENGTH including ELLIPSIS and aligned to ALIGNMENT.
 
-ELLIPSIS defaults to \"...\".
+ELLIPSIS defaults to `truncate-string-ellipsis', or \"...\".
 
 ALIGNMENT defaults to `+string-default-alignment'."
   (declare (pure t)
            (side-effect-free t))
-  (let ((ellipsis (or ellipsis "..."))
+  (let ((ellipsis (or ellipsis truncate-string-ellipsis "..."))
         (alignment (or alignment +string-default-alignment)))
     (if (> (length s) length)
         (format "%s%s"
@@ -50,7 +50,7 @@ ALIGNMENT defaults to `+string-default-alignment'."
 (cl-defun +string-align (s len
                            &key
                            (before "") (after "") (fill " ")
-                           (ellipsis "...")
+                           (ellipsis (or truncate-string-ellipsis "..."))
                            (alignment +string-default-alignment))
   "Print S to fit in LEN characters.
 Optional arguments BEFORE and AFTER specify strings to go on
@@ -59,7 +59,8 @@ either side of S.
 FILL is the string to fill extra space with (default \" \").
 
 ELLIPSIS is the string to show when S is too long to fit (default
-\"...\").  If nil, don't truncate the string.
+`truncate-string-ellipsis' or \"...\"). If nil, don't truncate
+the string.
 
 ALIGNMENT can be one of these:
 - nil: align to `+string-default-alignment'