# HG changeset patch
# User Brian Preble <rassilon@gnu.org>
# Date 674172310 0
# Node ID 2dd411fe2f72470171da5150e8e3f206e52037fa
# Parent  d83efd7593502e0f65a50fae14b094012d531306
*** empty log message ***

diff -r d83efd759350 -r 2dd411fe2f72 lisp/macros.el
--- a/lisp/macros.el	Mon May 13 21:21:58 1991 +0000
+++ b/lisp/macros.el	Mon May 13 22:05:10 1991 +0000
@@ -104,4 +104,5 @@
 		   (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 -r d83efd759350 -r 2dd411fe2f72 lisp/mail/mail-utils.el
--- a/lisp/mail/mail-utils.el	Mon May 13 21:21:58 1991 +0000
+++ b/lisp/mail/mail-utils.el	Mon May 13 22:05:10 1991 +0000
@@ -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 -r d83efd759350 -r 2dd411fe2f72 lisp/novice.el
--- a/lisp/novice.el	Mon May 13 21:21:58 1991 +0000
+++ b/lisp/novice.el	Mon May 13 22:05:10 1991 +0000
@@ -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 -r d83efd759350 -r 2dd411fe2f72 lisp/replace.el
--- a/lisp/replace.el	Mon May 13 21:21:58 1991 +0000
+++ b/lisp/replace.el	Mon May 13 22:05:10 1991 +0000
@@ -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 @@
   (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 -r d83efd759350 -r 2dd411fe2f72 lisp/time.el
--- a/lisp/time.el	Mon May 13 21:21:58 1991 +0000
+++ b/lisp/time.el	Mon May 13 22:05:10 1991 +0000
@@ -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)