Re: project.el: git submodules?

[Stefan Monnier]

> Here's the patch I made according to your description:
>
> diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
> index ac56537b97..bf737e821a 100644
> --- a/lisp/progmodes/project.el
> +++ b/lisp/progmodes/project.el
> @@ -266,11 +266,18 @@ project-try-vc
>    (let* ((backend (ignore-errors (vc-responsible-backend dir)))
>           (root
>            (pcase backend
> -            ('Git
> +            (`(or ,'Git ,'Hg)
>               ;; Don't stop at submodule boundary.
> -             (or (vc-file-getprop dir 'project-git-root)
> -                 (vc-file-setprop dir 'project-git-root
> -                                  (vc-find-root dir ".git/"))))
> +             (or (vc-file-getprop dir 'project-vc-root)
> +                 (let* ((default-directory dir)
> +                        (root (vc-root-dir))
> +                        (parent (file-name-directory
> +                                 (directory-file-name root))))
> +                   (vc-file-setprop dir 'project-vc-root
> +                                    (or
> +                                     (let ((default-directory parent))
> +                                       (vc-root-dir))
> +                                     root)))))

I'm not familiar enough with this code to understand what it does: which
part tests "is it a submodule"?  Or alternatively, which part compares
the location of the two repositories?


        Stefan