procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Commit file missing from previous change

Browse source 
* obsolete/vc-mcvs.el (vc-checkout, vc-switches, vc-default-revert): Autoload.
(vc-resynch-buffer): Declare.
This commit is contained in:
Glenn Morris 2013-05-28 00:03:00 -07:00
parent e658d75cda
commit f673190fb0
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/obsolete/vc-mcvs.el
View file

@ -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'.