Mercurial > emacs
changeset 9008:be396da9c611
(add-change-log-entry): Set add-log-full-name and
add-log-mailing-address here.
(add-log-mailing-address, add-log-full-name): Initialize to nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 22 Sep 1994 20:31:07 +0000 |
| parents | 2c55ff956862 |
| children | 7cdfcd5e71ff |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Thu Sep 22 20:00:48 1994 +0000 +++ b/lisp/add-log.el Thu Sep 22 20:31:07 1994 +0000 @@ -35,15 +35,11 @@ \\[add-change-log-entry] calls this function (if nil, `add-log-current-defun' instead) with no arguments. It returns a string or nil if it cannot guess.") -;; This MUST not be autoloaded, since user-login-name -;; cannot be known at Emacs dump time. -(defvar add-log-full-name (user-full-name) +(defvar add-log-full-name nil "*Full name of user, for inclusion in ChangeLog daily headers. This defaults to the value returned by the `user-full-name' function.") -;; This MUST not be autoloaded, since user-login-name -;; cannot be known at Emacs dump time. -(defvar add-log-mailing-address user-mail-address +(defvar add-log-mailing-address nil "*Electronic mail address of user, for inclusion in ChangeLog daily headers. This defaults to the value of `user-mail-address'.") @@ -133,6 +129,10 @@ ;; 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)