From 73fa8346460c784807ee160905baad816913c446 Mon Sep 17 00:00:00 2001
From: Brian Preble <rassilon@gnu.org>
Date: Mon, 13 May 1991 22:05:10 +0000
Subject: [PATCH] *** empty log message ***

---
 lisp/macros.el          | 3 ++-
 lisp/mail/mail-utils.el | 9 +++++----
 lisp/novice.el          | 3 ++-
 lisp/replace.el         | 8 +++++---
 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)