]> code.delx.au - gnu-emacs-elpa/blobdiff - company-files.el
Removed superfluous quotes.
[gnu-emacs-elpa] / company-files.el
index 6c0775c2be0870ded2801bf76c53689a8aa2e30b..bc764698d7d171a6d62ac9fdff7f46c50ddb6cdb 100644 (file)
   "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
-                      (file-name-directory (directory-file-name arg))) 1))
-    ('sorted t)
-    ('no-cache t)))
+    (interactive (company-begin-backend 'company-files))
+    (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)))
 
 (provide 'company-files)
 ;;; company-files.el ends here