From f673190fb00e4b0e10db52c774a695e67b2eea50 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 28 May 2013 00:03:00 -0700 Subject: [PATCH] Commit file missing from previous change * obsolete/vc-mcvs.el (vc-checkout, vc-switches, vc-default-revert): Autoload. (vc-resynch-buffer): Declare. --- lisp/obsolete/vc-mcvs.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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'. -- 2.39.2