From 4e19f18a1a6d5bd60673013751b4332be0ea445c Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 12 Mar 2024 17:48:49 +0100 Subject: apply not cl-reduce to find longest item for padding --- lisp/mastodon-toot.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/mastodon-toot.el') 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.") -- cgit v1.2.3