From 32bcbb492d56fc3d1d29deba0496f1cd0fed1518 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 25 Nov 1995 03:47:12 +0000 Subject: (add-change-log-entry): Initialize add-log-full-name and add-log-mailing-address before prompting. --- lisp/add-log.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/add-log.el b/lisp/add-log.el index e77b8cdcb35..f89435a396f 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -149,6 +149,10 @@ Fourth arg NEW-ENTRY non-nil means always create a new entry at the front; 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 @@ never append to an existing entry." ;; 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) -- cgit v1.2.1