]> code.delx.au - gnu-emacs/blobdiff - lisp/obsolete/vc-mcvs.el
Update copyright year to 2015
[gnu-emacs] / lisp / obsolete / vc-mcvs.el
index 782219450732b31b80a2e9105a3a25e2c1155bcc..d78f24bb1bb6c1c330a7c220a7ec6ce87279b55e 100644 (file)
@@ -1,6 +1,6 @@
 ;;; vc-mcvs.el --- VC backend for the Meta-CVS version-control system
 
-;; Copyright (C) 2003-201 Free Software Foundation, Inc.
+;; Copyright (C) 2003-2015 Free Software Foundation, Inc.
 
 ;; Author:      FSF (see vc.el for full credits)
 ;; Maintainer:  None
@@ -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'.