diff options
| author | Glenn Morris | 2013-05-28 00:03:00 -0700 |
|---|---|---|
| committer | Glenn Morris | 2013-05-28 00:03:00 -0700 |
| commit | f673190fb00e4b0e10db52c774a695e67b2eea50 (patch) | |
| tree | 34af6f051feebd3800f024879452c685398e20ea | |
| parent | e658d75cda04a34e810875b2b5dceb0998335bc8 (diff) | |
| download | emacs-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.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 | |||
| 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. |
| 483 | NAME is the name of the tag; if it is empty, do a `cvs update'. | 491 | NAME is the name of the tag; if it is empty, do a `cvs update'. |