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).
This commit is contained in:
parent
372e024acc
commit
e9fef1d70f
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue