Mercurial > emacs
changeset 262:990d2229354c
*** empty log message ***
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Fri, 10 May 1991 21:47:42 +0000 |
| parents | 731afdb0842c |
| children | 57bcc096ab9c |
| files | lisp/ledit.el lisp/lpr.el lisp/mail/mail-utils.el lisp/reposition.el lisp/time.el |
| diffstat | 5 files changed, 15 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ledit.el Fri May 10 21:15:23 1991 +0000 +++ b/lisp/ledit.el Fri May 10 21:47:42 1991 +0000 @@ -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"
--- a/lisp/lpr.el Fri May 10 21:15:23 1991 +0000 +++ b/lisp/lpr.el Fri May 10 21:47:42 1991 +0000 @@ -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")
--- a/lisp/mail/mail-utils.el Fri May 10 21:15:23 1991 +0000 +++ b/lisp/mail/mail-utils.el Fri May 10 21:47:42 1991 +0000 @@ -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
--- a/lisp/reposition.el Fri May 10 21:15:23 1991 +0000 +++ b/lisp/reposition.el Fri May 10 21:47:42 1991 +0000 @@ -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
--- a/lisp/time.el Fri May 10 21:15:23 1991 +0000 +++ b/lisp/time.el Fri May 10 21:47:42 1991 +0000 @@ -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)