[elpa] externals/vertico 17f27256be 2/3: Use cl-loop repeat

[ELPA Syncer]

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

    Use cl-loop repeat
---
 extensions/vertico-grid.el | 3 +--
 vertico.el                 | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/extensions/vertico-grid.el b/extensions/vertico-grid.el
index 58100c67ce..70fe0d9f82 100644
--- a/extensions/vertico-grid.el
+++ b/extensions/vertico-grid.el
@@ -146,8 +146,7 @@ When scrolling beyond this limit, candidates may be 
truncated."
                   (vertico--format-candidate cand prefix suffix (+ index 
start) start)))
                 width)))
            (funcall (if (> vertico-grid-annotate 0) #'vertico--affixate 
#'identity)
-                    (cl-loop for i from 0 below count
-                             for c in (nthcdr start vertico--candidates)
+                    (cl-loop repeat count for c in (nthcdr start 
vertico--candidates)
                              collect (funcall vertico--hilit (substring c))))))
          (width (make-vector vertico-grid--columns 0)))
     (dotimes (col vertico-grid--columns)
diff --git a/vertico.el b/vertico.el
index 07bfda6e3a..498c696a82 100644
--- a/vertico.el
+++ b/vertico.el
@@ -574,8 +574,7 @@ The function is configured by BY, BSIZE, BINDEX, BPRED and 
PRED."
            (group-fun (and vertico-group-format (vertico--metadata-get 
'group-function)))
            (candidates
             (vertico--affixate
-             (cl-loop for i from 0 below vertico-count
-                      for c in (nthcdr index vertico--candidates)
+             (cl-loop repeat vertico-count for c in (nthcdr index 
vertico--candidates)
                       collect (funcall vertico--hilit (substring c))))))
       (pcase-dolist ((and cand `(,str . ,_)) candidates)
         (when-let (new-title (and group-fun (funcall group-fun str nil)))