diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-05-28 00:03:00 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-05-28 00:03:00 -0700 |
| commit | f673190fb00e4b0e10db52c774a695e67b2eea50 (patch) | |
| tree | 34af6f051feebd3800f024879452c685398e20ea | |
| parent | e658d75cda04a34e810875b2b5dceb0998335bc8 (diff) | |
| download | emacs-f673190fb00e4b0e10db52c774a695e67b2eea50.tar.gz | |
Commit file missing from previous change
* obsolete/vc-mcvs.el (vc-checkout, vc-switches, vc-default-revert): Autoload.
(vc-resynch-buffer): Declare.
| -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'. |