corfu--move-prefix-candidates-to-front: Respect completion-ignore-case

See #113

1 files changed, 5 insertions, 3 deletions

diff --git a/corfu.el b/corfu.el
index 871b06f..6463c51 100644
--- a/corfu.el
+++ b/corfu.el
@@ -551,9 +551,11 @@ A scroll bar is displayed from LO to LO+BAR."
   "Move CANDIDATES which match prefix of FIELD to the beginning."
   (let* ((word (replace-regexp-in-string " .*" "" field))
          (len (length word)))
-    (corfu--partition! candidates
-                       (and (>= (length it) len)
-                            (eq t (compare-strings word 0 len it 0 len))))))
+    (corfu--partition!
+     candidates
+     (and (>= (length it) len)
+          (eq t (compare-strings word 0 len it 0 len
+                                 completion-ignore-case))))))
 
 (defun corfu--filter-files (files)
   "Filter FILES by `completion-ignored-extensions'."