diff options
| author | Richard M. Stallman | 1993-11-16 06:15:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-16 06:15:33 +0000 |
| commit | 75ade4691a2d5f096b73371659a34ffe097d86d8 (patch) | |
| tree | 4f6121adb22b67115febc5ac3c61a9ed4c5f782d | |
| parent | dd0a39d6649687bb93c5d2462604078e4e2c5d88 (diff) | |
| download | emacs-75ade4691a2d5f096b73371659a34ffe097d86d8.tar.gz emacs-75ade4691a2d5f096b73371659a34ffe097d86d8.zip | |
(change-log-default-name, add-log-current-defun-function)
(add-log-full-name, add-log-mailing-address): Delete autoload cookies.
| -rw-r--r-- | lisp/add-log.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 8f06aacd163..ffc1494f85c 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el | |||
| @@ -26,23 +26,23 @@ | |||
| 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 |