*** empty log message ***

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)

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

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

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)

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)