diff options
-rw-r--r-- | lisp/ledit.el | 15 | ||||
-rw-r--r-- | lisp/lpr.el | 5 | ||||
-rw-r--r-- | lisp/mail/mail-utils.el | 9 | ||||
-rw-r--r-- | lisp/reposition.el | 1 | ||||
-rw-r--r-- | lisp/time.el | 5 |
5 files changed, 15 insertions, 20 deletions
diff --git a/lisp/ledit.el b/lisp/ledit.el index 2471b3f485..298c254e8d 100644 --- a/lisp/ledit.el +++ b/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" diff --git a/lisp/lpr.el b/lisp/lpr.el index 74c5823614..5c36330174 100644 --- a/lisp/lpr.el +++ b/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") diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index cdfd6ff0b6..85ab1d3769 100644 --- a/lisp/mail/mail-utils.el +++ b/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 diff --git a/lisp/reposition.el b/lisp/reposition.el index 104021a443..5802e6d86f 100644 --- a/lisp/reposition.el +++ b/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 diff --git a/lisp/time.el b/lisp/time.el index fe29ca567d..710daa4212 100644 --- a/lisp/time.el +++ b/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) |