Mercurial > emacs

changeset 13648:ce23ae11d3fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-change-log-entry): Initialize add-log-full-name and add-log-mailing-address before prompting.
author Richard M. Stallman <rms@gnu.org>
date Sat, 25 Nov 1995 03:47:12 +0000
parents 40e469e13255
children fb670bed6222
files lisp/add-log.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Sat Nov 25 03:45:25 1995 +0000
+++ b/lisp/add-log.el	Sat Nov 25 03:47:12 1995 +0000
@@ -149,6 +149,10 @@
 never append to an existing entry."
   (interactive (list current-prefix-arg
 		     (prompt-for-change-log-name)))
+  (or add-log-full-name
+      (setq add-log-full-name (user-full-name)))
+  (or add-log-mailing-address
+      (setq add-log-mailing-address user-mail-address))
   (if whoami
       (progn
 	(setq add-log-full-name (read-input "Full name: " add-log-full-name))
@@ -158,10 +162,6 @@
 	 ;; s/he can edit the full name field in prompter if s/he wants.
 	(setq add-log-mailing-address
 	      (read-input "Mailing address: " add-log-mailing-address))))
-  (or add-log-full-name
-      (setq add-log-full-name (user-full-name)))
-  (or add-log-mailing-address
-      (setq add-log-mailing-address user-mail-address))
   (let ((defun (funcall (or add-log-current-defun-function
 			    'add-log-current-defun)))
 	paragraph-end entry)