diff options
| author | Dmitry Gutov | 2015-11-09 04:32:36 +0200 |
|---|---|---|
| committer | Dmitry Gutov | 2015-11-09 04:32:36 +0200 |
| commit | e4c190b28d658d92f8c19799b19f8263650687e0 (patch) | |
| tree | 2d735ab7ea3368d51b89580e71959cc19627e707 | |
| parent | cad0490b013ebcad4711b36e37a3bc198d8f9d1e (diff) | |
| download | emacs-project-next.tar.gz emacs-project-next.zip | |
Make sure that the ignore file existsproject-next
* lisp/vc/vc.el (vc-default-ignore-completion-table):
Make sure that the ignore file exists.
| -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." | |||
| 1433 | (lambda (str) | 1433 | (lambda (str) |
| 1434 | ;; Commented or empty lines. | 1434 | ;; Commented or empty lines. |
| 1435 | (string-match-p "\\`\\(?:#\\|[ \t\r\n]*\\'\\)" str)) | 1435 | (string-match-p "\\`\\(?:#\\|[ \t\r\n]*\\'\\)" str)) |
| 1436 | (vc--read-lines | 1436 | (let ((file (vc-call-backend backend 'find-ignore-file file))) |
| 1437 | (vc-call-backend backend 'find-ignore-file file)))) | 1437 | (and (file-exists-p file) |
| 1438 | (vc--read-lines file))))) | ||
| 1438 | 1439 | ||
| 1439 | (defun vc--read-lines (file) | 1440 | (defun vc--read-lines (file) |
| 1440 | "Return a list of lines of FILE." | 1441 | "Return a list of lines of FILE." |