Mercurial > emacs

comparison lisp/add-log.el @ 8049:1a8747d19087

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-log-mailing-address): Use user-mail-address.
author Richard M. Stallman <rms@gnu.org>
date Sat, 25 Jun 1994 00:35:12 +0000
parents 0495d3085f00
children 9ad3db62f0e7
comparison
equal deleted inserted replaced
8048:5253d3981da6 8049:1a8747d19087
41 "*Full name of user, for inclusion in ChangeLog daily headers. 41 "*Full name of user, for inclusion in ChangeLog daily headers.
42 This defaults to the value returned by the `user-full-name' function.") 42 This defaults to the value returned by the `user-full-name' function.")
43 43
44 ;; This MUST not be autoloaded, since user-login-name 44 ;; This MUST not be autoloaded, since user-login-name
45 ;; cannot be known at Emacs dump time. 45 ;; cannot be known at Emacs dump time.
46 (defvar add-log-mailing-address (concat (user-login-name) "@" (system-name)) 46 (defvar add-log-mailing-address user-mail-address
47 "*Electronic mail address of user, for inclusion in ChangeLog daily headers. 47 "*Electronic mail address of user, for inclusion in ChangeLog daily headers.
48 This defaults to the value returned by `user-login-name', followed by 48 This defaults to the value of `user-mail-address'.")
49 an `@' character, followed by the value returned by `system-name'.")
50 49
51 (defun change-log-name () 50 (defun change-log-name ()
52 (or change-log-default-name 51 (or change-log-default-name
53 (if (eq system-type 'vax-vms) 52 (if (eq system-type 'vax-vms)
54 "$CHANGE_LOG$.TXT" 53 "$CHANGE_LOG$.TXT"