(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"
;; 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")
(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
;;; 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
"*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)