Added interactive form for back-ends.

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

diff --git a/company-files.el b/company-files.el
index 9a6ad1d0ce543305aac71fb6d8468aa8f31aeea3..b81625a0d24092d5fddc326cc6634462b48798f0 100644 (file)
--- a/company-files.el
+++ b/company-files.el
@@ -2,7 +2,7 @@
 ;;
 ;; Copyright (C) 2009 Nikolaj Schumacher
 ;;
-;; This file is part of company 0.2.
+;; This file is part of company 0.2.1.
 ;;
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License
@@ -56,9 +56,12 @@
       (setq company-files-completion-cache (cons dir (nreverse candidates))))
     (cdr company-files-completion-cache)))
 
+;;;###autoload
 (defun company-files (command &optional arg &rest ignored)
   "a `company-mode' completion back-end existing file names."
+  (interactive (list 'interactive))
   (case command
+    ('interactive (company-begin-backend 'company-files))
     ('prefix (company-files-grab-existing-name))
     ('candidates (company-files-complete arg))
     ('location (cons (dired-noselect