*** empty log message ***

lisp/ledit.el

@@ -33,15 +33,12 @@
 (defconst ledit-buffer "*LEDIT*"
   "Name of buffer in which Ledit accumulates data to send to Lisp.")
 
-;;;###autoload
-(defconst ledit-save-files t
-  "*Non-nil means Ledit should save files before transferring to Lisp.")
-;;;###autoload
-(defconst ledit-go-to-lisp-string "%?lisp"
-  "*Shell commands to execute to resume Lisp job.")
-;;;###autoload
-(defconst ledit-go-to-liszt-string "%?liszt"
-  "*Shell commands to execute to resume Lisp compiler job.")
+;;;###autoload (defconst ledit-save-files t
+;;;###autoload   "*Non-nil means Ledit should save files before transferring to Lisp.")
+;;;###autoload (defconst ledit-go-to-lisp-string "%?lisp"
+;;;###autoload   "*Shell commands to execute to resume Lisp job.")
+;;;###autoload (defconst ledit-go-to-liszt-string "%?liszt"
+;;;###autoload   "*Shell commands to execute to resume Lisp compiler job.")
 
 (defun ledit-save-defun ()
   "Save the current defun in the ledit buffer"

lisp/lpr.el

@@ -18,9 +18,8 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-;;;###autoload
-(defconst lpr-switches nil
-  "*List of strings to pass as extra switch args to lpr when it is invoked.")
+;;;###autoload (defconst lpr-switches nil
+;;;###autoload   "*List of strings to pass as extra switch args to lpr when it is invoked.")
 
 (defvar lpr-command (if (eq system-type 'usg-unix-v)
 			"lp" "lpr")

lisp/mail/mail-utils.el

@@ -20,11 +20,10 @@
 
 (provide 'mail-utils)
 		     
-;;;###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.")
+;;;###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.")
 
 (defun mail-string-delete (string start end)
   "Returns a string containing all of STRING except the part

lisp/reposition.el

@@ -31,6 +31,7 @@
 ;;; after one of the same name in ZMACS, but the code is all-new and the
 ;;; behavior in some situations differs.
 
+;;;###autoload
 (defun reposition-window (&optional arg)
   "Make the current definition and/or comment visible.
 Further invocations move it to the top of the window or toggle the

lisp/time.el

@@ -22,9 +22,8 @@
   "*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 "\
-*Non-nil means \\[display-time] should display day and date as well as time.")
+;;;###autoload (defconst display-time-day-and-date nil
+;;;###autoload "*Non-nil means \\[display-time] should display day and date as well as time.")
 
 (defvar display-time-process nil)