# HG changeset patch # User Andr Spiegel # Date 888605054 0 # Node ID 9a6179e6eff61309f4fa29e144019a30ac331f02 # Parent d6b8d9997907c7d53c7435afabc1d501cf34536d (vc-default-init-version): New variable. (vc-register): Use it. Also use COMMENT argument. diff -r d6b8d9997907 -r 9a6179e6eff6 lisp/vc.el --- a/lisp/vc.el Fri Feb 27 17:05:21 1998 +0000 +++ b/lisp/vc.el Fri Feb 27 18:44:14 1998 +0000 @@ -5,6 +5,8 @@ ;; Author: Eric S. Raymond ;; Maintainer: Andre Spiegel +;; $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 @@ :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 @@ (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))) )