diff options
| author | Dmitry Gutov | 2019-10-04 11:29:49 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2019-10-04 12:13:25 +0300 |
| commit | d8c2da46e7e51a11882dabd593af29f4146aa0b3 (patch) | |
| tree | f1e6f75bc58008267ffc7d6bde85198725be967a | |
| parent | 7844846e3fedac8f32f0d81d3c5e906715d39fd2 (diff) | |
| download | emacs-d8c2da46e7e51a11882dabd593af29f4146aa0b3.tar.gz emacs-d8c2da46e7e51a11882dabd593af29f4146aa0b3.zip | |
; Fix reported warnings
| -rw-r--r-- | lisp/progmodes/project.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 2cf11afc36b..2c0c32345d2 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el | |||
| @@ -295,6 +295,10 @@ backend implementation of `project-external-roots'.") | |||
| 295 | (project--dir-ignores project dir))))) | 295 | (project--dir-ignores project dir))))) |
| 296 | (or dirs (project-roots project)))) | 296 | (or dirs (project-roots project)))) |
| 297 | 297 | ||
| 298 | (declare-function vc-git--program-version "vc-git") | ||
| 299 | (declare-function vc-git--run-command-string "vc-git") | ||
| 300 | (declare-function vc-hg-command "vc-hg") | ||
| 301 | |||
| 298 | (defun project--vc-list-files (dir backend extra-ignores) | 302 | (defun project--vc-list-files (dir backend extra-ignores) |
| 299 | (pcase backend | 303 | (pcase backend |
| 300 | (`Git | 304 | (`Git |
| @@ -327,7 +331,7 @@ backend implementation of `project-external-roots'.") | |||
| 327 | (mapcan | 331 | (mapcan |
| 328 | (lambda (i) | 332 | (lambda (i) |
| 329 | (list "--exclude" i)) | 333 | (list "--exclude" i)) |
| 330 | (copy-list extra-ignores))))) | 334 | extra-ignores)))) |
| 331 | (with-temp-buffer | 335 | (with-temp-buffer |
| 332 | (apply #'vc-hg-command t 0 "." | 336 | (apply #'vc-hg-command t 0 "." |
| 333 | "status" args) | 337 | "status" args) |