changeset 67573:123d22825421

(vc-mcvs-revert): Fix call to vc-default-revert.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 14 Dec 2005 16:56:48 +0000
parents 3ee5685f7930
children 9c4c9e375003
files lisp/vc-mcvs.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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")