Small prefix search optimization

minad · Feb 7, 2022 · fe491a5 · fe491a5
1 parent f103557
commit fe491a5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/corfu.el b/corfu.el
@@ -559,8 +559,8 @@ A scroll bar is displayed from LO to LO+BAR."
 
 (defun corfu--move-prefix-candidates-to-front (field candidates)
   "Move CANDIDATES which match prefix of FIELD to the beginning."
-  (let* ((word (substring field 0
-                          (seq-position field corfu-separator-char)))
+  (let* ((pos (seq-position field corfu-separator-char))
+	 (word (if pos (substring field 0 pos) field))
          (len (length word)))
     (corfu--partition!
      candidates