[elpa] externals/vertico 5851a8d3ae: vertico-grid: Minor cleanup

[ELPA Syncer]

branch: externals/vertico
commit 5851a8d3ae75523e5e2fd0d21df52e74aaa80a91
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico-grid: Minor cleanup
---
 extensions/vertico-grid.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/extensions/vertico-grid.el b/extensions/vertico-grid.el
index 1a8d09e986..300486fe81 100644
--- a/extensions/vertico-grid.el
+++ b/extensions/vertico-grid.el
@@ -118,10 +118,9 @@ When scrolling beyond this limit, candidates may be 
truncated."
 
 (cl-defmethod vertico--arrange-candidates (&context (vertico-grid-mode (eql 
t)))
   (when (<= vertico--index 0)
-    (let ((cand vertico--candidates) (n 0) (w 1))
-      (while (and cand (< n vertico-grid-lookahead))
-        (setq w (max w (+ vertico-grid-annotate (length (car cand)))) n (1+ n))
-        (pop cand))
+    (let ((w 1))
+      (cl-loop repeat vertico-grid-lookahead for cand in vertico--candidates do
+               (setq w (max w (+ vertico-grid-annotate (length cand)))))
       (setq vertico-grid--columns
             (max vertico-grid-min-columns
                  (min vertico-grid-max-columns