From 038e5de1adf2de6cdf28a428a44b0753813b928c Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 29 Dec 2021 22:55:55 -0600 Subject: Lots and lots of changes, oh jeez --- lisp/+util.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/+util.el') diff --git a/lisp/+util.el b/lisp/+util.el index fb77278..45d1e6d 100644 --- a/lisp/+util.el +++ b/lisp/+util.el @@ -58,7 +58,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 \"...\"). +ELLIPSIS is the string to show when S is too long to fit (default +\"...\"). If nil, don't truncate the string. ALIGNMENT can be one of these: - nil: align to `+string-default-alignment' @@ -73,7 +74,7 @@ ALIGNMENT can be one of these: (format "%s%s%s%s%s" before (if (eq alignment 'left) "" filler) - (+string-truncate s max-length ellipsis alignment) + (if ellipsis (+string-truncate s max-length ellipsis alignment) s) (if (eq alignment 'right) "" filler) after))) -- cgit 1.4.1-21-gabe81