diff options
Diffstat (limited to 'lisp/+util.el')
-rw-r--r-- | lisp/+util.el | 5 |
1 files changed, 3 insertions, 2 deletions
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. | |||
58 | 58 | ||
59 | FILL is the string to fill extra space with (default \" \"). | 59 | FILL is the string to fill extra space with (default \" \"). |
60 | 60 | ||
61 | ELLIPSIS is the string to show when S is too long to fit (default \"...\"). | 61 | ELLIPSIS is the string to show when S is too long to fit (default |
62 | \"...\"). If nil, don't truncate the string. | ||
62 | 63 | ||
63 | ALIGNMENT can be one of these: | 64 | ALIGNMENT can be one of these: |
64 | - nil: align to `+string-default-alignment' | 65 | - nil: align to `+string-default-alignment' |
@@ -73,7 +74,7 @@ ALIGNMENT can be one of these: | |||
73 | (format "%s%s%s%s%s" | 74 | (format "%s%s%s%s%s" |
74 | before | 75 | before |
75 | (if (eq alignment 'left) "" filler) | 76 | (if (eq alignment 'left) "" filler) |
76 | (+string-truncate s max-length ellipsis alignment) | 77 | (if ellipsis (+string-truncate s max-length ellipsis alignment) s) |
77 | (if (eq alignment 'right) "" filler) | 78 | (if (eq alignment 'right) "" filler) |
78 | after))) | 79 | after))) |
79 | 80 | ||