From e9fef1d70ff6b5ed48681e6a1c62e650b108cd55 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Tue, 11 Apr 2023 22:59:45 +0300 Subject: [PATCH] vc-checkout: Try to use the vc-dir's backend first * lisp/vc/vc.el (vc-checkout): Try to use the vc-dir's backend before looking for the file's one. The latter doesn't work when the file doesn't exist on disk yet (bug#62674). --- lisp/vc/vc.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 0e3519e2e5c..de1e38a0ef9 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1594,7 +1594,7 @@ After check-out, runs the normal hook `vc-checkout-hook'." (vc-call make-version-backups-p file) (vc-up-to-date-p file) (vc-make-version-backup file)) - (let ((backend (vc-backend file))) + (let ((backend (or vc-dir-backend (vc-backend file)))) (with-vc-properties (list file) (condition-case err (vc-call-backend backend 'checkout file rev) -- 2.39.5