mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(add-change-log-entry): Set add-log-full-name and

Browse source 
add-log-mailing-address here.
(add-log-mailing-address, add-log-full-name): Initialize to nil.
This commit is contained in:
Richard M. Stallman 1994-09-22 20:31:07 +00:00
parent cf1b1bf8c0
commit 59ac2ce681
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/add-log.el
View file

@ -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 @@ 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)