company-files-complete: Include mtime in the cache key

diff --git a/company-files.el b/company-files.el
index cd405474295ea78a13a3c60004ee7ab8185af8f3..8160f797eae978726bc598d09794bbbedc4f0bef 100644 (file)
--- a/company-files.el
+++ b/company-files.el
@@ -59,10 +59,11 @@
 
 (defun company-files-complete (prefix)
   (let* ((dir (file-name-directory prefix))
-         (dir-exp (expand-file-name dir))
+         (key (cons (expand-file-name dir)
+                    (nth 5 (file-attributes dir))))
          (file (file-name-nondirectory prefix))
          candidates directories)
-    (unless (equal dir-exp (car company-files-completion-cache))
+    (unless (equal key (car company-files-completion-cache))
       (dolist (file (company-files-directory-files dir file))
         (setq file (concat dir file))
         (push file candidates)
@@ -74,7 +75,7 @@
           (push (concat directory
                         (unless (eq (aref directory (1- (length directory))) ?/) "/")
                         child) candidates)))
-      (setq company-files-completion-cache (cons dir-exp (nreverse candidates))))
+      (setq company-files-completion-cache (cons key (nreverse candidates))))
     (all-completions prefix
                      (cdr company-files-completion-cache))))