[elpa] externals/corfu 4da6c58b77 1/2: corfu-quick: Support more candidates

[ELPA Syncer]

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

    corfu-quick: Support more candidates
    
    See also 
https://github.com/minad/vertico/commit/5c9a4af57b38fb1a6e78d3e23d50fc59b951241d
---
 extensions/corfu-quick.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/extensions/corfu-quick.el b/extensions/corfu-quick.el
index fdfa33321b..f4014d238c 100644
--- a/extensions/corfu-quick.el
+++ b/extensions/corfu-quick.el
@@ -45,7 +45,7 @@
   :type 'string
   :group 'corfu)
 
-(defcustom corfu-quick2 "jkl"
+(defcustom corfu-quick2 "jkluionm"
   "Second level quick keys."
   :type 'string
   :group 'corfu)
@@ -72,12 +72,11 @@
   "Format quick keys prefix.
 IDX is the current candidate index.
 TWO is non-nil if two keys should be displayed."
-  (let* ((fst (length corfu-quick1))
-         (snd (length corfu-quick2))
-         (len (+ fst snd)))
+  (let ((fst (length corfu-quick1))
+        (snd (length corfu-quick2)))
     (if (>= idx fst)
-        (let ((first (elt corfu-quick2 (mod (/ (- idx fst) len) snd)))
-              (second (elt (concat corfu-quick1 corfu-quick2) (mod (- idx fst) 
len))))
+        (let ((first (elt corfu-quick2 (mod (/ (- idx fst) fst) snd)))
+              (second (elt corfu-quick1 (mod (- idx fst) fst))))
           (cond
            ((eq first two)
             (list