diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-03-12 17:48:49 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-03-12 17:48:49 +0100 |
| commit | 4e19f18a1a6d5bd60673013751b4332be0ea445c (patch) | |
| tree | 5e7ecc5e3123e183b4283fcf968aada08239c921 /lisp/mastodon-profile.el | |
| parent | 6935c9290278e8b14f518df6de883ca81930e439 (diff) | |
apply not cl-reduce to find longest item for padding
Diffstat (limited to 'lisp/mastodon-profile.el')
| -rw-r--r-- | lisp/mastodon-profile.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 5929f1c..55041c9 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -524,7 +524,7 @@ FIELDS means provide a fields vector fetched by other means." (defun mastodon-profile--fields-insert (fields) "Format and insert field pairs (a.k.a profile metadata) in FIELDS." (let* ((car-fields (mapcar #'car fields)) - (left-width (cl-reduce #'max (mapcar #'length car-fields)))) + (left-width (apply #'max (mapcar #'length car-fields)))) (mapconcat (lambda (field) (mastodon-tl--render-text (concat |