From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 14 Dec 2005 16:56:48 +0000 (+0000)
Subject: (vc-mcvs-revert): Fix call to vc-default-revert.
X-Git-Tag: emacs-pretest-22.0.90~5281
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de38789604a7f3f68a096d499e622db517e285a5;p=emacs.git

(vc-mcvs-revert): Fix call to vc-default-revert.
---

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")