branch: externals/corfu
commit 2cd4bba3c746a91670a1d356531e27b77a21d058
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Minor cleanup, reduce allocations
---
corfu.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/corfu.el b/corfu.el
index 3993ddbdca..6fd0cb25cb 100644
--- a/corfu.el
+++ b/corfu.el
@@ -723,10 +723,9 @@ FRAME is the existing frame."
(defun corfu--format-candidates (cands)
"Format annotated CANDS."
- (setq cands
- (cl-loop for c in cands collect
- (cl-loop for s in c collect
- (replace-regexp-in-string "[ \t]*\n[ \t]*" " " s))))
+ (cl-loop for c in cands do
+ (cl-loop for s in-ref c do
+ (setf s (replace-regexp-in-string "[ \t]*\n[ \t]*" " "
s))))
(let* ((cw (cl-loop for x in cands maximize (string-width (car x))))
(pw (cl-loop for x in cands maximize (string-width (cadr x))))
(sw (cl-loop for x in cands maximize (string-width (caddr x))))
