Mercurial > emacs
changeset 20988:9a6179e6eff6
(vc-default-init-version): New variable.
(vc-register): Use it. Also use COMMENT argument.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Fri, 27 Feb 1998 18:44:14 +0000 |
| parents | d6b8d9997907 |
| children | c11150812ca0 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 13 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 <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 @@ :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))) )