[elpa] externals/corfu 2cd4bba3c7 3/5: Minor cleanup, reduce allocations

[ELPA Syncer]

branch: externals/corfu
commit 2cd4bba3c746a91670a1d356531e27b77a21d058
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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))))