apply not cl-reduce to find longest item for padding

3 files changed, 3 insertions, 3 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
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.")
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index d0f310b..e9e89c0 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