Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix submodules, second try

Browse source 
* lisp/progmodes/project.el (project-try-vc):
Call the backend directly instead of binding default-directory.
This commit is contained in:
Dmitry Gutov 2020-05-16 00:06:39 +03:00
parent 66cbe8b946
commit 4307a84fd8
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/progmodes/project.el
View file

@ -274,8 +274,7 @@ backend implementation of `project-external-roots'.")
('Git
;; Don't stop at submodule boundary.
(or (vc-file-getprop dir 'project-git-root)
(let* ((default-directory dir)
(root (vc-root-dir))
(let* ((root (vc-call-backend backend 'root dir))
(gitfile (expand-file-name ".git" root)))
(vc-file-setprop
dir 'project-git-root
@ -287,9 +286,8 @@ backend implementation of `project-external-roots'.")
(goto-char (point-min))
(looking-at "gitdir: [./]+/\.git/modules/"))
(let* ((parent (file-name-directory
(directory-file-name root)))
(default-directory parent))
(vc-root-dir)))
(directory-file-name root))))
(vc-call-backend backend 'root parent)))
(t root)))
)))
('nil nil)