From: Dmitry Gutov <dgutov@yandex.ru>
Date: Fri, 26 Jun 2020 00:44:51 +0000 (+0300)
Subject: vc-known-roots: Actually update
X-Git-Tag: emacs-28.0.90~7093
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75bb40b163cdc4a5fffa873c1b430dc222f921ee;p=emacs.git

vc-known-roots: Actually update

* lisp/vc/vc-hooks.el (vc-known-roots):
Actually update for the change in 733921edfe (bug#41821).
---

diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index 9675c364bb7..46f55358de8 100644
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -302,7 +302,7 @@ non-nil if FILE exists and its contents were successfully inserted."
 (declare-function project-try-vc "project")
 (defun vc-known-roots ()
   "Return a list of known vc roots."
-  (seq-filter #'project-try-vc (mapcar #'car (project-known-roots))))
+  (seq-filter #'project-try-vc (project-known-project-roots)))
 
 (defun vc-find-root (file witness)
   "Find the root of a checked out project.