[nongnu] elpa/mastodon 4e19f18a1a 03/16: apply not cl-reduce to find longest item for padding

[ELPA Syncer]

branch: elpa/mastodon
commit 4e19f18a1a6d5bd60673013751b4332be0ea445c
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>

    apply not cl-reduce to find longest item for padding
---
 lisp/mastodon-profile.el | 2 +-
 lisp/mastodon-toot.el    | 2 +-
 lisp/mastodon-views.el   | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 5929f1ca12..55041c9de2 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
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 82ad03b7ad..7d2e467a64 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.")
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index d0f310b78c..e9e89c0fd3 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -852,7 +852,7 @@ MISSKEY means the instance is a Misskey or derived server."
 IND is the optional indentation level to print at."
   (let* ((cars (mapcar (lambda (x) (symbol-name (car x)))
                        response))
-         (pad (1+ (cl-reduce #'max (mapcar #'length cars)))))
+         (pad (1+ (apply #'max (mapcar #'length cars)))))
     (while response
       (let ((el (pop response)))
         (cond