From dd692fa42906caaf58fb283364d18c7ca5d46157 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Tue, 3 Dec 2024 04:31:07 +0200 Subject: [PATCH] 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). (cherry picked from commit 8534bb2d6b55ba55639058a5637da1f28797dddb) --- lisp/progmodes/project.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index f87c379c203..2035a63800d 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -585,10 +585,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 -- 2.39.5