mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

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
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 (mapcar
(lambda (module) (lambda (module)
(when (file-directory-p module) (when (file-directory-p module)
(project--vc-list-files (let ((sub-files
(concat default-directory module) (project--vc-list-files
backend (concat default-directory module)
extra-ignores))) backend
extra-ignores)))
(if project-files-relative-names
(mapcar (lambda (file)
(concat (file-name-as-directory module) file))
sub-files)
sub-files))))
submodules))) submodules)))
(setq files (setq files
(apply #'nconc files sub-files)))) (apply #'nconc files sub-files))))