diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-29 15:32:56 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-29 15:32:56 +0000 |
| commit | e0607aaa2c6b33104fed475eb15452b2cdb6df03 (patch) | |
| tree | bb3f35077180a6aa3f3fcf7399c68d4b7e2a4fb4 /lisp/vc-mcvs.el | |
| parent | b95ced6beee4bf2afccfc5aa0670d110d6afdfa6 (diff) | |
| download | emacs-e0607aaa2c6b33104fed475eb15452b2cdb6df03.tar.gz | |
Make `checkout-model' apply to filesets.
* vc-hooks.el (vc-checkout-model): Rewrite.
(vc-before-save, vc-after-save): Adjust callers accordingly.
* vc.el (vc-editable-p, vc-next-action, vc-checkout, vc-update)
(vc-transfer-file): Adjust callers accordingly.
* vc-rcs.el (vc-rcs-checkout-model): Adjust arg.
(vc-rcs-state, vc-rcs-state-heuristic, vc-rcs-receive-file)
(vc-rcs-checkout, vc-rcs-fetch-master-state): Use vc-rcs-checkout-model
instead of vc-checkout-model.
* vc-mcvs.el (vc-mcvs-revert):
Use vc-mcvs-checkout-model i.s.o vc-checkout-model.
* vc-cvs.el (vc-cvs-checkout-model): Adjust arg.
(vc-cvs-revert): Use vc-cvs-checkout-model i.s.o vc-checkout-model.
* vc-svn.el (vc-svn-checkout-model):
* vc-hg.el (vc-hg-checkout-model):
* vc-git.el (vc-git-checkout-model):
* vc-bzr.el (vc-bzr-checkout-model): Adjust arg.
Diffstat (limited to 'lisp/vc-mcvs.el')
| -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 6be69e47bd8..df8a4ebad0b 100644 --- a/lisp/vc-mcvs.el +++ b/lisp/vc-mcvs.el @@ -367,7 +367,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 working revision it was based on." (vc-default-revert 'MCVS file contents-done) - (unless (eq (vc-checkout-model file) 'implicit) + (unless (eq (vc-mcvs-checkout-model file) 'implicit) (if vc-mcvs-use-edit (vc-mcvs-command nil 0 file "unedit") ;; Make the file read-only by switching off all w-bits |