Mercurial > emacs
changeset 269:2ca8cdb96a9f
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 13 May 1991 22:05:14 +0000 |
| parents | 2dd411fe2f72 |
| children | f8d0e0ecd474 |
| files | lisp/indent.el lisp/ledit.el lisp/lpr.el lisp/reposition.el lisp/textmodes/paragraphs.el lisp/textmodes/picture.el lisp/textmodes/tex-mode.el |
| diffstat | 7 files changed, 43 insertions(+), 28 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/indent.el Mon May 13 22:05:10 1991 +0000 +++ b/lisp/indent.el Mon May 13 22:05:14 1991 +0000 @@ -18,8 +18,9 @@ ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;;###autoload (defvar indent-line-function 'indent-to-left-margin "\ -;;;###autoload Function to indent current line.");Now in loaddefs.el +;;;###autoload +(defvar indent-line-function 'indent-to-left-margin "\ +Function to indent current line.");Now in loaddefs.el (defun indent-according-to-mode () "Indent line in proper way for current major mode."
--- a/lisp/ledit.el Mon May 13 22:05:10 1991 +0000 +++ b/lisp/ledit.el Mon May 13 22:05:14 1991 +0000 @@ -33,12 +33,15 @@ (defconst ledit-buffer "*LEDIT*" "Name of buffer in which Ledit accumulates data to send to Lisp.") -;;;###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.") +;;;###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.") (defun ledit-save-defun () "Save the current defun in the ledit buffer"
--- a/lisp/lpr.el Mon May 13 22:05:10 1991 +0000 +++ b/lisp/lpr.el Mon May 13 22:05:14 1991 +0000 @@ -18,8 +18,9 @@ ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;;###autoload (defconst lpr-switches nil -;;;###autoload "*List of strings to pass as extra switch args to lpr when it is invoked.") +;;;###autoload +(defconst lpr-switches nil "\ +*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/reposition.el Mon May 13 22:05:10 1991 +0000 +++ b/lisp/reposition.el Mon May 13 22:05:14 1991 +0000 @@ -161,7 +161,8 @@ ;;(repos-debug-macro "4") )))) -;;;###autoload (define-key esc-map "\C-l" 'resposition-window) +;;;###autoload +(define-key esc-map "\C-l" 'resposition-window) ;;; Auxiliary functions
--- a/lisp/textmodes/paragraphs.el Mon May 13 22:05:10 1991 +0000 +++ b/lisp/textmodes/paragraphs.el Mon May 13 22:05:14 1991 +0000 @@ -18,23 +18,28 @@ ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;;###autoload (defconst paragraph-start "^[ \t\n\f]" -;;;###autoload "*Regexp for beginning of a line that starts OR separates paragraphs.") +;;;###autoload +(defconst paragraph-start "^[ \t\n\f]" "\ +*Regexp for beginning of a line that starts OR separates paragraphs.") -;;;###autoload (defconst paragraph-separate "^[ \t\f]*$" -;;;###autoload "*Regexp for beginning of a line that separates paragraphs. -;;;###autoload If you change this, you may have to change paragraph-start also.") +;;;###autoload +(defconst paragraph-separate "^[ \t\f]*$" "\ +*Regexp for beginning of a line that separates paragraphs. +If you change this, you may have to change paragraph-start also.") -;;;###autoload (defconst sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\ -;;;###autoload *Regexp describing the end of a sentence. -;;;###autoload All paragraph boundaries also end sentences, regardless.") +;;;###autoload +(defconst sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\ +*Regexp describing the end of a sentence. +All paragraph boundaries also end sentences, regardless.") -;;;###autoload (defconst page-delimiter "^\014" "\ -;;;###autoload *Regexp describing line-beginnings that separate pages.") +;;;###autoload +(defconst page-delimiter "^\014" "\ +*Regexp describing line-beginnings that separate pages.") -;;;###autoload (defvar paragraph-ignore-fill-prefix nil -;;;###autoload "Non-nil means the paragraph commands are not affected by `fill-prefix'. -;;;###autoload This is desirable in modes where blank lines are the paragraph delimiters.") +;;;###autoload +(defvar paragraph-ignore-fill-prefix nil "\ +Non-nil means the paragraph commands are not affected by `fill-prefix'. +This is desirable in modes where blank lines are the paragraph delimiters.") (defun forward-paragraph (&optional arg)
--- a/lisp/textmodes/picture.el Mon May 13 22:05:10 1991 +0000 +++ b/lisp/textmodes/picture.el Mon May 13 22:05:14 1991 +0000 @@ -533,7 +533,8 @@ "Type \\[picture-mode-exit] in this buffer to return it to %s mode.") picture-mode-old-mode-name))) -;;;###autoload (fset 'picture-mode 'edit-picture) +;;;###autoload +(fset 'picture-mode 'edit-picture) (defun picture-mode-exit (&optional nostrip) "Undo edit-picture and return to previous major mode.
--- a/lisp/textmodes/tex-mode.el Mon May 13 22:05:10 1991 +0000 +++ b/lisp/textmodes/tex-mode.el Mon May 13 22:05:14 1991 +0000 @@ -165,8 +165,10 @@ 'plain-tex-mode)))) (if mode (funcall mode) (funcall tex-default-mode)))) -;;;###autoload (fset 'TeX-mode 'tex-mode) -;;;###autoload (fset 'LaTeX-mode 'latex-mode) +;;;###autoload +(fset 'TeX-mode 'tex-mode) +;;;###autoload +(fset 'LaTeX-mode 'latex-mode) ;;;###autoload (defun plain-tex-mode () @@ -215,7 +217,8 @@ (setq tex-end-of-header "%**end of header") (setq tex-trailer "\\bye\n") (run-hooks 'text-mode-hook 'tex-mode-hook 'plain-tex-mode-hook)) -;;;###autoload (fset 'plain-TeX-mode 'plain-tex-mode) +;;;###autoload +(fset 'plain-TeX-mode 'plain-tex-mode) ;;;###autoload (defun latex-mode ()