[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master bcde795 2/3: ; Add a couple of FIXMEs
From: |
Dmitry Gutov |
Subject: |
master bcde795 2/3: ; Add a couple of FIXMEs |
Date: |
Sun, 5 Jul 2020 17:51:41 -0400 (EDT) |
branch: master
commit bcde7952b35ced2f0cb277a32d1ae451f76b8a51
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
; Add a couple of FIXMEs
---
lisp/progmodes/project.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 03f7c99..702e69b 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -294,11 +294,14 @@ The directory names should be absolute. Used in the VC
project
backend implementation of `project-external-roots'.")
(defun project-try-vc (dir)
- (let* ((backend (ignore-errors (vc-responsible-backend dir)))
+ (let* ((backend
+ ;; FIXME: This is slow. Cache it.
+ (ignore-errors (vc-responsible-backend dir)))
(root
(pcase backend
('Git
;; Don't stop at submodule boundary.
+ ;; FIXME: Cache for a shorter time.
(or (vc-file-getprop dir 'project-git-root)
(let ((root (vc-call-backend backend 'root dir)))
(vc-file-setprop