(vc-(m)cvs-create-repo): Remove.

3 files changed, 3 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 079e14914b3..d91e23da97b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2007-07-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* vc-mcvs.el (vc-mcvs-create-repo):
+	* vc-cvs.el (vc-cvs-create-repo): Remove.
+
 	* vc-hooks.el (vc-find-root): Fix case where `file' is the current
 	directory and the root as well.
 
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 588ff4be6ba..2daf2f72fba 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -281,10 +281,6 @@ committed and support display of sticky tags."
 ;;; State-changing functions
 ;;;
 
-(defun vc-cvs-create-repo ()
-  "Create a new CVS repository."
-  (error "Creation of CVS repositories is not supported."))
-
 (defun vc-cvs-register (files &optional rev comment)
   "Register FILES into the CVS version-control system.
 COMMENT can be used to provide an initial description of FILES.
diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el
index 928f2978ec1..debdf892183 100644
--- a/lisp/vc-mcvs.el
+++ b/lisp/vc-mcvs.el
@@ -207,10 +207,6 @@ This is only meaningful if you don't use the implicit checkout model
 ;;; State-changing functions
 ;;;
 
-(defun vc-mcvs-create-repo ()
-  "Create a new Meta-CVS repository."
-  (error "Creation of Meta-CVS repositories is not supported."))
-
 (defun vc-mcvs-register (files &optional rev comment)
   "Register FILES into the Meta-CVS version-control system.
 COMMENT can be used to provide an initial description of FILE.