;;
;; Copyright (C) 2009 Nikolaj Schumacher
;;
-;; This file is part of company 0.4.1.
+;; This file is part of company 0.5.
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
(when (setq file (company-grab-line regexp 1))
(return file)))
(setq dir (file-name-directory file))
+ (not (string-match "//" dir))
(file-exists-p dir)
(file-name-all-completions (file-name-nondirectory file) dir)
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