1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

project-try-vc--search: Fix inside recursive submodule setup

* lisp/progmodes/project.el (project-try-vc--search): Loop when
looking for submodule parent repository (bug#74614).
This commit is contained in:
Dmitry Gutov 2024-12-03 04:31:07 +02:00
parent f9e7f57f57
commit 8534bb2d6b

View file

@ -591,10 +591,10 @@ See `project-vc-extra-root-markers' for the marker value format.")
last-matches))
vc-handled-backends))
project)
(when (and
(eq backend 'Git)
(project--vc-merge-submodules-p root)
(project--submodule-p root))
(while (and
(eq backend 'Git)
(project--vc-merge-submodules-p root)
(project--submodule-p root))
(let* ((parent (file-name-directory (directory-file-name root))))
(setq root (vc-call-backend 'Git 'root parent))))
(when root