diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2015-11-09 04:32:36 +0200 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-11-09 04:32:36 +0200 |
| commit | e4c190b28d658d92f8c19799b19f8263650687e0 (patch) | |
| tree | 2d735ab7ea3368d51b89580e71959cc19627e707 /lisp/vc | |
| parent | cad0490b013ebcad4711b36e37a3bc198d8f9d1e (diff) | |
| download | emacs-e4c190b28d658d92f8c19799b19f8263650687e0.tar.gz | |
Make sure that the ignore file existsproject-next
* lisp/vc/vc.el (vc-default-ignore-completion-table):
Make sure that the ignore file exists.
Diffstat (limited to 'lisp/vc')
| -rw-r--r-- | lisp/vc/vc.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index f08e562efe5..0a2169534e5 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1433,8 +1433,9 @@ Argument BACKEND is the backend you are using." (lambda (str) ;; Commented or empty lines. (string-match-p "\\`\\(?:#\\|[ \t\r\n]*\\'\\)" str)) - (vc--read-lines - (vc-call-backend backend 'find-ignore-file file)))) + (let ((file (vc-call-backend backend 'find-ignore-file file))) + (and (file-exists-p file) + (vc--read-lines file))))) (defun vc--read-lines (file) "Return a list of lines of FILE." |