From: Dmitry Gutov <dmitry@gutov.dev>
Date: Tue, 3 Dec 2024 02:31:07 +0000 (+0200)
Subject: project-try-vc--search: Fix inside recursive submodule setup
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd692fa42906caaf58fb283364d18c7ca5d46157;p=emacs.git

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)
---

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