aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2019-10-04 11:29:49 +0300
committerDmitry Gutov2019-10-04 12:13:25 +0300
commitd8c2da46e7e51a11882dabd593af29f4146aa0b3 (patch)
treef1e6f75bc58008267ffc7d6bde85198725be967a
parent7844846e3fedac8f32f0d81d3c5e906715d39fd2 (diff)
downloademacs-d8c2da46e7e51a11882dabd593af29f4146aa0b3.tar.gz
emacs-d8c2da46e7e51a11882dabd593af29f4146aa0b3.zip
; Fix reported warnings
-rw-r--r--lisp/progmodes/project.el6
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)