diff options
| -rw-r--r-- | lisp/macros.el | 3 | ||||
| -rw-r--r-- | lisp/mail/mail-utils.el | 9 | ||||
| -rw-r--r-- | lisp/novice.el | 3 | ||||
| -rw-r--r-- | lisp/replace.el | 8 | ||||
| -rw-r--r-- | lisp/time.el | 5 |
5 files changed, 17 insertions, 11 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index 94d5fabb411..75510a48ed9 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -104,4 +104,5 @@ C-l -- redisplay screen and ask again." (let (executing-macro defining-kbd-macro) (recursive-edit)))))))))) -;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query) +;;;###autoload +(define-key ctl-x-map "q" 'kbd-macro-query) diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 85ab1d3769f..4a47077fe5a 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -20,10 +20,11 @@ (provide 'mail-utils) -;;;###autoload (defvar mail-use-rfc822 nil -;;;###autoload "*If non-nil, use a full, hairy RFC822 parser on mail addresses. -;;;###autoload Otherwise, (the default) use a smaller, somewhat faster, and -;;;###autoload often correct parser.") +;;;###autoload +(defvar mail-use-rfc822 nil "\ +*If non-nil, use a full, hairy RFC822 parser on mail addresses. +Otherwise, (the default) use a smaller, somewhat faster, and +often correct parser.") (defun mail-string-delete (string start end) "Returns a string containing all of STRING except the part diff --git a/lisp/novice.el b/lisp/novice.el index caddf120743..3bc9f663bd7 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -23,8 +23,9 @@ ;; The command is found in this-command ;; and the keys are returned by (this-command-keys). -;;;###autoload (setq disabled-command-hook 'disabled-command-hook) ;;;###autoload +(setq disabled-command-hook 'disabled-command-hook) + (defun disabled-command-hook (&rest ignore) (let (char) (save-window-excursion diff --git a/lisp/replace.el b/lisp/replace.el index c32abcefc06..f5895e1d89d 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -18,8 +18,9 @@ ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;;###autoload (defconst case-replace t "\ -;;;###autoload *Non-nil means query-replace should preserve case in replacements.") +;;;###autoload +(defconst case-replace t "\ +*Non-nil means query-replace should preserve case in replacements.") ;;;###autoload (defun query-replace (from-string to-string &optional arg) @@ -34,7 +35,8 @@ only matches surrounded by word boundaries." (interactive "sQuery replace: \nsQuery replace %s with: \nP") (perform-replace from-string to-string t nil arg) (message "Done")) -;;;###autoload (define-key esc-map "%" 'query-replace) +;;;###autoload +(define-key esc-map "%" 'query-replace) ;;;###autoload (defun query-replace-regexp (regexp to-string &optional arg) diff --git a/lisp/time.el b/lisp/time.el index 710daa42128..c890b64089b 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -22,8 +22,9 @@ "*File name of mail inbox file, for indicating existence of new mail. Default is system-dependent, and is the same as used by Rmail.") -;;;###autoload (defconst display-time-day-and-date nil -;;;###autoload "*Non-nil means \\[display-time] should display day and date as well as time.") +;;;###autoload +(defconst display-time-day-and-date nil \" +*Non-nil means \\[display-time] should display day and date as well as time.") (defvar display-time-process nil) |