summaryrefslogtreecommitdiff
path: root/lisp/add-log.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-11-25 03:47:12 +0000
committerRichard M. Stallman <rms@gnu.org>1995-11-25 03:47:12 +0000
commit32bcbb492d56fc3d1d29deba0496f1cd0fed1518 (patch)
treecf3e1abe524315c993c71aac866ce91996846d88 /lisp/add-log.el
parent8818c4f7c0e98361ff33ebdd040743695fc26d9b (diff)
downloademacs-32bcbb492d56fc3d1d29deba0496f1cd0fed1518.tar.gz
(add-change-log-entry): Initialize add-log-full-name
and add-log-mailing-address before prompting.
Diffstat (limited to 'lisp/add-log.el')
-rw-r--r--lisp/add-log.el8
1 files 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)