diff options
| -rw-r--r-- | lisp/progmodes/project.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index a16ff30395b..17550a83f95 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el | |||
| @@ -714,10 +714,16 @@ See `project-vc-extra-root-markers' for the marker value format.") | |||
| 714 | (mapcar | 714 | (mapcar |
| 715 | (lambda (module) | 715 | (lambda (module) |
| 716 | (when (file-directory-p module) | 716 | (when (file-directory-p module) |
| 717 | (project--vc-list-files | 717 | (let ((sub-files |
| 718 | (concat default-directory module) | 718 | (project--vc-list-files |
| 719 | backend | 719 | (concat default-directory module) |
| 720 | extra-ignores))) | 720 | backend |
| 721 | extra-ignores))) | ||
| 722 | (if project-files-relative-names | ||
| 723 | (mapcar (lambda (file) | ||
| 724 | (concat (file-name-as-directory module) file)) | ||
| 725 | sub-files) | ||
| 726 | sub-files)))) | ||
| 721 | submodules))) | 727 | submodules))) |
| 722 | (setq files | 728 | (setq files |
| 723 | (apply #'nconc files sub-files)))) | 729 | (apply #'nconc files sub-files)))) |