Fix preselect computation

1 files changed, 4 insertions, 3 deletions

diff --git a/corfu.el b/corfu.el
index 49548dd..ad43d5e 100644
--- a/corfu.el
+++ b/corfu.el
@@ -580,9 +580,10 @@ A scroll bar is displayed from LO to LO+BAR."
     (list base (length all) all hl corfu--metadata
           ;; Select the prompt when the input is a valid completion
           ;; and if it is not equal to the first candidate.
-          (if (and (not (equal field (car all)))
-                   (not (and completing-file (equal (concat field "/") (car all))))
-                   (test-completion str table pred))
+          (if (or (not all)
+                  (and (not (equal field (car all)))
+                       (not (and completing-file (equal (concat field "/") (car all))))
+                       (test-completion str table pred)))
               -1 0))))
 
 (defun corfu--update-candidates (str pt table pred)