summaryrefslogtreecommitdiff
path: root/lisp/add-log.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2007-07-24 01:21:32 +0000
committerMiles Bader <miles@gnu.org>2007-07-24 01:21:32 +0000
commit1e8995158740b15936887264a3d7183beb5c51d9 (patch)
treecd8fc3c6fde54564cd5dbe15fccfc3c57b9ad270 /lisp/add-log.el
parent26cc71affcdc326491cfd936c43eb90522a06ca0 (diff)
parentf931ce84da6a9515dc99f88beb0de3a4138cc1cd (diff)
Merge from emacs--rel--22
Patches applied: * emacs--rel--22 (patch 59-69) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 237-238) - Update from CVS 2007-07-23 Stefan Monnier <monnier@iro.umontreal.ca> * lisp/ses.el (ses-cleanup): Prevent Emacs from spuriously checking if the underlying file is uptodate. 2007-07-17 Dan Nicolaescu <dann@ics.uci.edu> * lisp/vc.el: Add more info about the vc-registered function. 2007-07-15 Richard M. Stallman <rms@gnu.org> * lisp/kmacro.el (kmacro-bind-to-key): Avoid comparisons on function keys. * lisp/tutorial.el (tutorial--find-changed-keys): Handle C-x specially like ESC. 2007-07-15 Aaron Hawley <aaronh@garden.org> * lisp/tar-mode.el (tar-get-descriptor): No error for zero-length file. 2007-07-21 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/mm-uu.el (mm-uu-type-alist): Refer to mm-uu-configure-list in doc string. 2007-07-16 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-srvr.el (gnus-server-font-lock-keywords): Quote faces. 2007-07-16 Richard M. Stallman <rms@gnu.org> * lispref/display.texi (Defining Faces): Fix previous change. 2007-07-20 Eli Zaretskii <eliz@gnu.org> * src/w32proc.c (IMAGE_NT_OPTIONAL_HDR32_MAGIC, IMAGE_OPTIONAL_HEADER32): Define if not defined. 2007-07-18 Jason Rumney <jasonr@gnu.org> * src/w32proc.c (w32_executable_type): Handle 64 bit executables. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-823
Diffstat (limited to 'lisp/add-log.el')
-rw-r--r--lisp/add-log.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el
index 906e747cac..458dfcff52 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -519,15 +519,13 @@ non-nil, otherwise in local time."
(mailing-address (or add-log-mailing-address user-mail-address)))
(when whoami
- (setq full-name (read-string "Full name: "
- (or add-log-full-name (user-full-name))))
+ (setq full-name (read-string "Full name: " full-name))
;; Note that some sites have room and phone number fields in
;; full name which look silly when inserted. Rather than do
;; anything about that here, let user give prefix argument so that
;; s/he can edit the full name field in prompter if s/he wants.
(setq mailing-address
- (read-string "Mailing address: "
- (or add-log-mailing-address user-mail-address))))
+ (read-string "Mailing address: " mailing-address)))
;; If file starts with a copyright and permission notice, skip them.
;; Assume they end at first blank line.