Added location referencing.

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

diff --git a/company-files.el b/company-files.el
index adbdf904c9bccd596fe32755f6b40d4a7ea59834..f08479c9c610645d79162b6facffe81ddaaf576c 100644 (file)
--- a/company-files.el
+++ b/company-files.el
@@ -61,6 +61,8 @@
   (case command
     ('prefix (company-files-grab-existing-name))
     ('candidates (company-files-complete arg))
+    ('location (cons (dired-noselect
+                      (file-name-directory (directory-file-name arg))) 1))
     ('sorted t)
     ('no-cache t)))