diff options
| author | Stefan Monnier | 2005-12-14 16:56:48 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-12-14 16:56:48 +0000 |
| commit | de38789604a7f3f68a096d499e622db517e285a5 (patch) | |
| tree | 46d8d433060883ebe456643bf4b977ba15eb5d93 | |
| parent | b158c851d4f79a442b150610af738ff510ce68c5 (diff) | |
| download | emacs-de38789604a7f3f68a096d499e622db517e285a5.tar.gz emacs-de38789604a7f3f68a096d499e622db517e285a5.zip | |
(vc-mcvs-revert): Fix call to vc-default-revert.
| -rw-r--r-- | lisp/vc-mcvs.el | 2 |
1 files changed, 1 insertions, 1 deletions
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.") | |||
| 350 | 350 | ||
| 351 | (defun vc-mcvs-revert (file &optional contents-done) | 351 | (defun vc-mcvs-revert (file &optional contents-done) |
| 352 | "Revert FILE to the version it was based on." | 352 | "Revert FILE to the version it was based on." |
| 353 | (vc-default-revert file contents-done) | 353 | (vc-default-revert 'MCVS file contents-done) |
| 354 | (unless (eq (vc-checkout-model file) 'implicit) | 354 | (unless (eq (vc-checkout-model file) 'implicit) |
| 355 | (if vc-mcvs-use-edit | 355 | (if vc-mcvs-use-edit |
| 356 | (vc-mcvs-command nil 0 file "unedit") | 356 | (vc-mcvs-command nil 0 file "unedit") |