Separate sort of candidates and children in company-files

diff --git a/company-files.el b/company-files.el
index f90f3d02b233a7956a6821fa2047c356bb833f8c..c04985cb58005ac5f289a539179beb2937b2883c 100644 (file)
--- a/company-files.el
+++ b/company-files.el
@@ -31,7 +31,8 @@
 (defun company-files--directory-files (dir prefix)
   (ignore-errors
     ;; Don't use directory-files. It produces directories without trailing /.
 (defun company-files--directory-files (dir prefix)
   (ignore-errors
     ;; Don't use directory-files. It produces directories without trailing /.

-    (let ((comp (file-name-all-completions prefix dir)))
+    (let ((comp (sort (file-name-all-completions prefix dir)
+                      (lambda (s1 s2) (string-lessp (downcase s1) (downcase s2))))))

       (if (equal prefix "")
           (delete "../" (delete "./" comp))
         comp))))
       (if (equal prefix "")
           (delete "../" (delete "./" comp))
         comp))))


@@ -92,8 +93,7 @@
                                                  (company-files--directory-files d "")))
                                        directories))))
         (setq company-files--completion-cache
                                                  (company-files--directory-files d "")))
                                        directories))))
         (setq company-files--completion-cache

-              (cons key (sort (append children candidates)
-                              #'string-lessp)))))
+              (cons key (append candidates children)))))

     (all-completions prefix
                      (cdr company-files--completion-cache))))
 
     (all-completions prefix
                      (cdr company-files--completion-cache))))