# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1134579408 0
# Node ID 123d2282542199e58f6f8c8cf146984bfe54e7cb
# Parent  3ee5685f7930ecd7258b85f0d49a7fc5be3c46b9
(vc-mcvs-revert): Fix call to vc-default-revert.

diff -r 3ee5685f7930 -r 123d22825421 lisp/vc-mcvs.el
--- a/lisp/vc-mcvs.el	Wed Dec 14 11:21:51 2005 +0000
+++ b/lisp/vc-mcvs.el	Wed Dec 14 16:56:48 2005 +0000
@@ -350,7 +350,7 @@
 
 (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")