(vc-default-init-version): New variable.

(vc-register): Use it.  Also use COMMENT argument.

1 files changed, 13 insertions, 3 deletions

diff --git a/lisp/vc.el b/lisp/vc.el
index 1d62b342b3c..228569ba5fb 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -5,6 +5,8 @@
 ;; Author:     Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
+;; $Id: vc.el,v 1.208.1.1 1998/02/27 18:28:44 spiegel Exp $
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -110,6 +112,12 @@ If FORM3 is `RCS', use FORM2 for CVS as well as RCS.
   :type 'boolean
   :group 'vc)
 
+(defcustom vc-default-init-version "1.1"
+  "*A string used as the default version number when a new file is registered.
+This can be overriden by giving a prefix argument to \\[vc-register]."
+  :type 'string
+  :group 'vc)
+
 (defcustom vc-command-messages nil
   "*If non-nil, display run messages from back-end commands."
   :type 'boolean
@@ -971,9 +979,11 @@ merge in the changes into your working copy."
          (setq backup-inhibited t)))
   (vc-admin
    buffer-file-name
-   (and override
-        (read-string
-         (format "Initial version level for %s: " buffer-file-name))))
+   (or (and override
+            (read-string
+             (format "Initial version level for %s: " buffer-file-name)))
+       vc-default-init-version)
+   comment)
   (setq vc-buffer-backend (vc-backend (buffer-file-name)))
   )