From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 5 Jul 2020 21:50:32 +0000 (+0300)
Subject: ; Add a couple of FIXMEs
X-Git-Tag: emacs-28.0.90~7066
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcde7952b35ced2f0cb277a32d1ae451f76b8a51;p=emacs.git

; Add a couple of FIXMEs
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 03f7c995e85..702e69ba539 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