[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e19c5d4: Use project--value-in-dir
From: |
Dmitry Gutov |
Subject: |
master e19c5d4: Use project--value-in-dir |
Date: |
Tue, 1 Dec 2020 18:41:47 -0500 (EST) |
branch: master
commit e19c5d43486326094ab4edaccc85cbc57c743d12
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
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.
---
lisp/progmodes/project.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 39c3ca8..fd4c256 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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e19c5d4: Use project--value-in-dir,
Dmitry Gutov <=