s/`bbdb'/BBDB

[gnu-emacs-elpa] / company-files.el

diff --git a/company-files.el b/company-files.el
index 0e2ab4d29808af895e74df75295f3a0073857ff4..7cfc500751a1c22a4eacc74afa0a29753b893b73 100644 (file)
--- a/company-files.el
+++ b/company-files.el
@@ -64,6 +64,7 @@
                     (expand-file-name dir)
                     (nth 5 (file-attributes dir))))
          (file (file-name-nondirectory prefix))
+         (completion-ignore-case read-file-name-completion-ignore-case)
          candidates directories)
     (unless (company-file--keys-match-p key (car company-files--completion-cache))
       (dolist (file (company-files--directory-files dir file))
@@ -82,8 +83,8 @@
                      (cdr company-files--completion-cache))))
 
 (defun company-file--keys-match-p (new old)
-  (and (string-prefix-p (car old) (car new))
-       (equal (cdr old) (cdr new))))
+  (and (equal (cdr old) (cdr new))
+       (string-prefix-p (car old) (car new))))
 
 ;;;###autoload
 (defun company-files (command &optional arg &rest ignored)