Mercurial > emacs
comparison lisp/add-log.el @ 5038:61c4250fb760
(change-log-default-name, add-log-current-defun-function)
(add-log-full-name, add-log-mailing-address): Delete autoload cookies.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 16 Nov 1993 06:15:33 +0000 |
| parents | c0ea0009268a |
| children | 60fa14264c3b |
comparison
equal
deleted
inserted
replaced
| 5037:0bcb829bd1a3 | 5038:61c4250fb760 |
|---|---|
| 24 | 24 |
| 25 ;; This facility is documented in the Emacs Manual. | 25 ;; This facility is documented in the Emacs Manual. |
| 26 | 26 |
| 27 ;;; Code: | 27 ;;; Code: |
| 28 | 28 |
| 29 ;;;###autoload | |
| 30 (defvar change-log-default-name nil | 29 (defvar change-log-default-name nil |
| 31 "*Name of a change log file for \\[add-change-log-entry].") | 30 "*Name of a change log file for \\[add-change-log-entry].") |
| 32 | 31 |
| 33 ;;;###autoload | |
| 34 (defvar add-log-current-defun-function nil | 32 (defvar add-log-current-defun-function nil |
| 35 "\ | 33 "\ |
| 36 *If non-nil, function to guess name of current function from surrounding text. | 34 *If non-nil, function to guess name of current function from surrounding text. |
| 37 \\[add-change-log-entry] calls this function (if nil, `add-log-current-defun' | 35 \\[add-change-log-entry] calls this function (if nil, `add-log-current-defun' |
| 38 instead) with no arguments. It returns a string or nil if it cannot guess.") | 36 instead) with no arguments. It returns a string or nil if it cannot guess.") |
| 39 | 37 |
| 40 ;;;###autoload | 38 ;; This MUST not be autoloaded, since user-login-name |
| 39 ;; cannot be known at Emacs dump time. | |
| 41 (defvar add-log-full-name (user-full-name) | 40 (defvar add-log-full-name (user-full-name) |
| 42 "*Full name of user, for inclusion in ChangeLog daily headers. | 41 "*Full name of user, for inclusion in ChangeLog daily headers. |
| 43 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.") |
| 44 | 43 |
| 45 ;;;###autoload | 44 ;; This MUST not be autoloaded, since user-login-name |
| 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 (concat (user-login-name) "@" (system-name)) |
| 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 returned by `user-login-name', followed by |
| 49 an `@' character, followed by the value returned by `system-name'.") | 49 an `@' character, followed by the value returned by `system-name'.") |
| 50 | 50 |