procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix file listing in submodules with project-files-relative-names=t

Browse source 
* lisp/progmodes/project.el (project--vc-list-files):
Prepend module names to files when project-files-relative-names is
non-nil (bug#71538).
This commit is contained in:
Pär Bohrarper 2024-06-14 04:04:20 +03:00 • committed by Dmitry Gutov
parent 4973801c19
commit 2dae603c41
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/project.el
View file

@ -714,10 +714,16 @@ See `project-vc-extra-root-markers' for the marker value format.")
(mapcar
(lambda (module)
(when (file-directory-p module)
(project--vc-list-files
(concat default-directory module)
backend
extra-ignores)))
(let ((sub-files
(project--vc-list-files
(concat default-directory module)
backend
extra-ignores)))
(if project-files-relative-names
(mapcar (lambda (file)
(concat (file-name-as-directory module) file))
sub-files)
sub-files))))
submodules)))
(setq files
(apply #'nconc files sub-files))))