From: Dmitry Gutov <dgutov@yandex.ru>
Date: Tue, 1 Dec 2020 23:41:40 +0000 (+0200)
Subject: Use project--value-in-dir
X-Git-Tag: emacs-28.0.90~4973
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e19c5d43486326094ab4edaccc85cbc57c743d12;p=emacs.git

Use project--value-in-dir

* lisp/progmodes/project.el (project-files):
Use 'project--value-in-dir'.  To have any changes in
'project-vc-ignores' take effect immediately.
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 39c3ca84172..fd4c256e97d 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -434,16 +434,17 @@ backend implementation of `project-external-roots'.")
 (cl-defmethod project-files ((project (head vc)) &optional dirs)
   (mapcan
    (lambda (dir)
-     (let (backend)
+     (let ((ignores (project--value-in-dir 'project-vc-ignores dir))
+           backend)
        (if (and (file-equal-p dir (cdr project))
                 (setq backend (vc-responsible-backend dir))
                 (cond
                  ((eq backend 'Hg))
                  ((and (eq backend 'Git)
                        (or
-                        (not project-vc-ignores)
+                        (not ignores)
                         (version<= "1.9" (vc-git--program-version)))))))
-           (project--vc-list-files dir backend project-vc-ignores)
+           (project--vc-list-files dir backend ignores)
          (project--files-in-directory
           dir
           (project--dir-ignores project dir)))))