>From 7840ef7059a160be850aa58086eed992881ea30d Mon Sep 17 00:00:00 2001 From: Olivier Certner Date: Thu, 6 Apr 2023 11:25:33 +0200 Subject: [PATCH 3/3] VC: Allow `vc-default-revert' (and CVS) to revert a missing file * lisp/vc/vc.el (vc-default-revert): Fix reverting a missing file case by not trying to create a backup through `copy-file'. Notably impacts CVS, where `vc-cvs-revert' calls `vc-default-revert'. --- lisp/vc/vc.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 90905edb887..ff42a9e6394 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -3604,7 +3604,8 @@ vc-default-revert (file-buffer (or (get-file-buffer file) (current-buffer)))) (message "Checking out %s..." file) (let ((failed t) - (backup-name (car (find-backup-file-name file)))) + (backup-name (when (file-exists-p file) + (car (find-backup-file-name file))))) (when backup-name (copy-file file backup-name 'ok-if-already-exists 'keep-date) (unless (file-writable-p file) -- 2.39.2