From xemacs-m  Mon Sep  8 20:46:07 1997
Received: from kurims.kurims.kyoto-u.ac.jp (kurims.kurims.kyoto-u.ac.jp [130.54.16.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id UAA04179
	for <xemacs-beta@xemacs.org>; Mon, 8 Sep 1997 20:45:40 -0500 (CDT)
Received: from orion.kurims.kyoto-u.ac.jp (orion.kurims.kyoto-u.ac.jp [130.54.16.5]) by kurims.kurims.kyoto-u.ac.jp (8.8.5/3.4W2) with SMTP id KAA01697; Tue, 9 Sep 1997 10:45:05 +0900 (JST)
Received: (from petersen@localhost) by orion.kurims.kyoto-u.ac.jp (SMI-8.6/3.5Wbeta) id KAA21007; Tue, 9 Sep 1997 10:44:59 +0900
To: Andre Spiegel <spiegel@inf.fu-berlin.de>
Cc: XEmacs Beta List <xemacs-beta@xemacs.org>
Subject: another [patch] to "vc.el" in xemacs-20.3beta19
From: Jens-Ulrik Holger Petersen <petersen@kurims.kyoto-u.ac.jp>
Date: 09 Sep 1997 10:44:59 +0900
Message-ID: <lbg1rfuup0.fsf@orion.kurims.kyoto-u.ac.jp>
Lines: 56

Sorry I should have sent this patch together with the last one.  I
just assumed that this was already possible, but apparently not.

Until now the choice of default initial version number seems to have
been left to the version-control program (eg 1.1 under RCS).  (I don't
know how many times I have "C-x v i"'d a new file, realised that I
really wanted version "0.1", deleted the vc file, killed the file,
found the file again and "C-u C-x v i"'d it.  Great today I deleted
the wrong vc file while doing this :-(  --- shouldn't happen again!)


1997-09-09  Jens-Ulrik Holger Petersen  <petersen@kurims.kyoto-u.ac.jp>

	* packages/vc.el (vc-register): Make the default initial
	version be `vc-default-init-version', a new variable
	defaulting to "0.1".

diff -u lisp/packages/vc.el~ lisp/packages/vc.el
--- lisp/packages/vc.el~	Tue Sep  9 10:29:08 1997
+++ lisp/packages/vc.el		Tue Sep  9 10:29:08 1997
@@ -123,6 +123,9 @@
 (defvar vc-directory-exclusion-list '("SCCS" "RCS" "CVS")
   "*A list of directory names ignored by functions that recursively 
 walk file trees.")
+(defvar vc-default-init-version "0.1"
+  "*A string giving the default version number when a new file is registered.
+Can be overridden by giving a prefix argument to `vc-register'.")
 
 (defconst vc-maximum-comment-ring-size 32
   "Maximum number of saved comments in the comment ring.")
@@ -819,7 +822,9 @@
 
 ;;;###autoload
 (defun vc-register (&optional override comment)
-  "Register the current file into your version-control system."
+  "Register the current file into your version-control system.
+The default initial version number, taken to be `vc-default-init-version',
+can be overridden by giving a prefix arg."
   (interactive "P")
   (or buffer-file-name
       (error "No visited file"))
@@ -842,9 +847,11 @@
 	 (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))
 
 (defun vc-resynch-window (file &optional keep noquery)

