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-toot.el | |
parent | 6935c9290278e8b14f518df6de883ca81930e439 (diff) |
apply not cl-reduce to find longest item for padding
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r-- | lisp/mastodon-toot.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 82ad03b..7d2e467 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1374,7 +1374,7 @@ LENGTH is the maximum character length allowed for a poll option." collect (read-string (format "Poll option [%s/%s] [max %s chars]: " x count length)))) - (longest (cl-reduce #'max (mapcar #'length choices)))) + (longest (apply #'max (mapcar #'length choices)))) (if (> longest length) (progn (message "looks like you went over the max length. Try again.") |