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-views.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/mastodon-views.el') 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 -- cgit v1.2.3