From de38789604a7f3f68a096d499e622db517e285a5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 14 Dec 2005 16:56:48 +0000 Subject: [PATCH] (vc-mcvs-revert): Fix call to vc-default-revert. --- lisp/vc-mcvs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el index b52bc797dda..4394dd510f5 100644 --- a/lisp/vc-mcvs.el +++ b/lisp/vc-mcvs.el @@ -350,7 +350,7 @@ This is only possible if Meta-CVS is responsible for FILE's directory.") (defun vc-mcvs-revert (file &optional contents-done) "Revert FILE to the version it was based on." - (vc-default-revert file contents-done) + (vc-default-revert 'MCVS file contents-done) (unless (eq (vc-checkout-model file) 'implicit) (if vc-mcvs-use-edit (vc-mcvs-command nil 0 file "unedit") -- 2.39.5