From a53911c5253edd011950a5a988f4c2f68bd408e4 Mon Sep 17 00:00:00 2001 From: Vitalie Spinu Date: Mon, 1 Feb 2016 22:23:07 +0100 Subject: [PATCH] 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 f90f3d02b..c04985cb5 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)))) -- 2.39.2