diff options
| -rw-r--r-- | lisp/obsolete/vc-mcvs.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/obsolete/vc-mcvs.el b/lisp/obsolete/vc-mcvs.el index dd597be32b1..9f9bd7a0e76 100644 --- a/lisp/obsolete/vc-mcvs.el +++ b/lisp/obsolete/vc-mcvs.el @@ -189,6 +189,8 @@ This is only meaningful if you don't use the implicit checkout model ;;; ;;; State-changing functions ;;; +(autoload 'vc-checkout "vc") +(autoload 'vc-switches "vc") (defun vc-mcvs-register (files &optional rev comment) "Register FILES into the Meta-CVS version-control system. @@ -345,6 +347,8 @@ This is only possible if Meta-CVS is responsible for FILE's directory.") (defun vc-mcvs-rename-file (old new) (vc-mcvs-command nil 0 new "move" (file-relative-name old))) +(autoload 'vc-default-revert "vc") + (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) @@ -478,6 +482,10 @@ workspace is immediately moved to that new branch)." (vc-mcvs-command nil 0 dir "branch" name) (vc-mcvs-command nil 0 dir "switch" name))) +;; vc-mcvs-command calls the autoloaded vc-do-command from vc-dispatcher. +(declare-function vc-resynch-buffer "vc-dispatcher" + (file &optional keep noquery reset-vc-info)) + (defun vc-mcvs-retrieve-tag (dir name update) "Retrieve a tag at and below DIR. NAME is the name of the tag; if it is empty, do a `cvs update'. |