branch: externals/consult
commit e68ead570c22cd0162d4220c23fa19edd89a9759
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
consult-register: Use cl-loop minimize
---
consult-register.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/consult-register.el b/consult-register.el
index 4e7c4c7895..a4b858cd0e 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -153,8 +153,7 @@ If COMPLETION is non-nil format the register for
completion."
(`(,str . ,props) (consult-register--describe val)))
(when (string-search "\n" str)
(let* ((lines (seq-take (seq-remove #'string-blank-p (split-string str
"\n")) 3))
- (space (apply #'min most-positive-fixnum
- (mapcar (lambda (x) (string-match-p "[^ ]" x))
lines))))
+ (space (cl-loop for x in lines minimize (string-match-p "[^ ]"
x))))
(setq str (mapconcat (lambda (x) (substring x space))
lines (concat "\n" (make-string (1+ key-len)
?\s))))))
(setq str (concat
