[elpa] externals/vertico 7713355: Fix vertico-grid

[ELPA Syncer]

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

    Fix vertico-grid
---
 extensions/vertico-grid.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/extensions/vertico-grid.el b/extensions/vertico-grid.el
index 954a952..4152589 100644
--- a/extensions/vertico-grid.el
+++ b/extensions/vertico-grid.el
@@ -65,13 +65,13 @@ When scrolling beyond this limit, candidates may be 
truncated."
 (defun vertico-grid--arrange-candidates ()
   "Arrange candidates."
   (when (<= vertico--index 0)
-    (setq vertico-grid--columns
-          (max 1 (min vertico-grid-max-columns
-                      (floor (window-width)
-                             (+ (length vertico-grid-separator)
-                                (cl-loop for cand in vertico--candidates
-                                         for n from 0 below 
vertico-grid-lookahead
-                                         maximize (length cand))))))))
+    (let ((cand vertico--candidates) (w 1) (n 0))
+      (while (and cand (< n vertico-grid-lookahead))
+        (setq w (max w (length (car cand))) n (1+ n))
+        (pop cand))
+      (setq vertico-grid--columns
+            (max 1 (min vertico-grid-max-columns
+                        (floor (window-width) (+ w (length 
vertico-grid-separator))))))))
   (let* ((sep (length vertico-grid-separator))
          (count (* vertico-grid-rows vertico-grid--columns))
          (start (* count (floor (max 0 vertico--index) count)))