From: Glenn Morris Date: Tue, 28 May 2013 07:03:00 +0000 (-0700) Subject: Commit file missing from previous change X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~156 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f673190fb00e4b0e10db52c774a695e67b2eea50;p=emacs.git Commit file missing from previous change * obsolete/vc-mcvs.el (vc-checkout, vc-switches, vc-default-revert): Autoload. (vc-resynch-buffer): Declare. --- 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'.