[elpa] master a53911c 130/173: Separate sort of candidates and children in company-files

[Dmitry Gutov]

branch: master
commit a53911c5253edd011950a5a988f4c2f68bd408e4
Author: Vitalie Spinu <address@hidden>
Commit: Vitalie Spinu <address@hidden>

    Separate sort of candidates and children in company-files
---
 company-files.el |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/company-files.el b/company-files.el
index f90f3d0..c04985c 100644
--- 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 /.
-    (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))))
@@ -92,8 +93,7 @@
                                                  
(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))))