summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDmitry Gutov <dgutov@yandex.ru>2022-12-02 04:03:03 +0200
committerDmitry Gutov <dgutov@yandex.ru>2022-12-02 04:03:19 +0200
commit3bccef6f52598dd5aea37016254a3bc17893298d (patch)
treec4ae9deef3a572d4c6cdc94a6eb9983effcfaf88
parent03a40b974c47f99c7d7fb00638b2c8371ede7af4 (diff)
downloademacs-3bccef6f52598dd5aea37016254a3bc17893298d.tar.gz
project-files (VC-aware): Make sure the VC backend is loaded
* lisp/progmodes/project.el (project-files): Make sure the VC backend is loaded (bug#59734).
-rw-r--r--lisp/progmodes/project.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 1cf50df0366..3f4a5fb04bc 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1,7 +1,7 @@
;;; project.el --- Operations on the current project -*- lexical-binding: t; -*-
;; Copyright (C) 2015-2022 Free Software Foundation, Inc.
-;; Version: 0.9.0
+;; Version: 0.9.1
;; Package-Requires: ((emacs "26.1") (xref "1.4.0"))
;; This is a GNU ELPA :core package. Avoid using functionality that
@@ -583,9 +583,10 @@ project backend implementation of `project-external-roots'.")
(mapcan
(lambda (dir)
(let ((ignores project-vc-ignores)
- backend)
+ (backend (cadr project)))
+ (when backend
+ (require (intern (concat "vc-" (downcase (symbol-name backend))))))
(if (and (file-equal-p dir (nth 2 project))
- (setq backend (cadr project))
(cond
((eq backend 'Hg))
((and (eq backend 'Git)