aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-11-16 06:15:33 +0000
committerRichard M. Stallman1993-11-16 06:15:33 +0000
commit75ade4691a2d5f096b73371659a34ffe097d86d8 (patch)
tree4f6121adb22b67115febc5ac3c61a9ed4c5f782d
parentdd0a39d6649687bb93c5d2462604078e4e2c5d88 (diff)
downloademacs-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.el8
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'
38instead) with no arguments. It returns a string or nil if it cannot guess.") 36instead) 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.
43This defaults to the value returned by the `user-full-name' function.") 42This 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.
48This defaults to the value returned by `user-login-name', followed by 48This defaults to the value returned by `user-login-name', followed by