From: André Spiegel <spiegel@gnu.org>
Date: Fri, 27 Feb 1998 18:44:14 +0000 (+0000)
Subject: (vc-default-init-version): New variable.
X-Git-Tag: emacs-20.3~2086
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d53f4669de0011ea8bce12cc8e6a15e5638e46a;p=emacs.git

(vc-default-init-version): New variable.
(vc-register): Use it.  Also use COMMENT argument.
---

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)))
   )