aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2013-05-28 00:03:00 -0700
committerGlenn Morris2013-05-28 00:03:00 -0700
commitf673190fb00e4b0e10db52c774a695e67b2eea50 (patch)
tree34af6f051feebd3800f024879452c685398e20ea
parente658d75cda04a34e810875b2b5dceb0998335bc8 (diff)
downloademacs-f673190fb00e4b0e10db52c774a695e67b2eea50.tar.gz
emacs-f673190fb00e4b0e10db52c774a695e67b2eea50.zip
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.el8
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
189;;; 189;;;
190;;; State-changing functions 190;;; State-changing functions
191;;; 191;;;
192(autoload 'vc-checkout "vc")
193(autoload 'vc-switches "vc")
192 194
193(defun vc-mcvs-register (files &optional rev comment) 195(defun vc-mcvs-register (files &optional rev comment)
194 "Register FILES into the Meta-CVS version-control system. 196 "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.")
345(defun vc-mcvs-rename-file (old new) 347(defun vc-mcvs-rename-file (old new)
346 (vc-mcvs-command nil 0 new "move" (file-relative-name old))) 348 (vc-mcvs-command nil 0 new "move" (file-relative-name old)))
347 349
350(autoload 'vc-default-revert "vc")
351
348(defun vc-mcvs-revert (file &optional contents-done) 352(defun vc-mcvs-revert (file &optional contents-done)
349 "Revert FILE to the working revision it was based on." 353 "Revert FILE to the working revision it was based on."
350 (vc-default-revert 'MCVS file contents-done) 354 (vc-default-revert 'MCVS file contents-done)
@@ -478,6 +482,10 @@ workspace is immediately moved to that new branch)."
478 (vc-mcvs-command nil 0 dir "branch" name) 482 (vc-mcvs-command nil 0 dir "branch" name)
479 (vc-mcvs-command nil 0 dir "switch" name))) 483 (vc-mcvs-command nil 0 dir "switch" name)))
480 484
485;; vc-mcvs-command calls the autoloaded vc-do-command from vc-dispatcher.
486(declare-function vc-resynch-buffer "vc-dispatcher"
487 (file &optional keep noquery reset-vc-info))
488
481(defun vc-mcvs-retrieve-tag (dir name update) 489(defun vc-mcvs-retrieve-tag (dir name update)
482 "Retrieve a tag at and below DIR. 490 "Retrieve a tag at and below DIR.
483NAME is the name of the tag; if it is empty, do a `cvs update'. 491NAME is the name of the tag; if it is empty, do a `cvs update'.