From 4e19f18a1a6d5bd60673013751b4332be0ea445c Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Tue, 12 Mar 2024 17:48:49 +0100
Subject: apply not cl-reduce to find longest item for padding

---
 lisp/mastodon-profile.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/mastodon-profile.el')

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
-- 
cgit v1.2.3