diff options
| -rw-r--r-- | lisp/indent.el | 5 | ||||
| -rw-r--r-- | lisp/ledit.el | 15 | ||||
| -rw-r--r-- | lisp/lpr.el | 5 | ||||
| -rw-r--r-- | lisp/reposition.el | 3 | ||||
| -rw-r--r-- | lisp/textmodes/paragraphs.el | 39 | ||||
| -rw-r--r-- | lisp/textmodes/picture.el | 3 | ||||
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 9 |
7 files changed, 47 insertions, 32 deletions
diff --git a/lisp/indent.el b/lisp/indent.el index 54588db1b8b..781a1897dd7 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -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." diff --git a/lisp/ledit.el b/lisp/ledit.el index 298c254e8db..7981ef851fd 100644 --- a/lisp/ledit.el +++ b/lisp/ledit.el @@ -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" diff --git a/lisp/lpr.el b/lisp/lpr.el index 5c363301747..e377f4c9331 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el @@ -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") diff --git a/lisp/reposition.el b/lisp/reposition.el index dcf7b457b75..97b6ec2419d 100644 --- a/lisp/reposition.el +++ b/lisp/reposition.el @@ -161,7 +161,8 @@ first comment line visible (if point is in a comment)." ;;(repos-debug-macro "4") )))) -;;;###autoload (define-key esc-map "\C-l" 'resposition-window) +;;;###autoload +(define-key esc-map "\C-l" 'resposition-window) ;;; Auxiliary functions diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 4241c43e7b1..55b9fc6e45a 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el @@ -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-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 sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\ -;;;###autoload *Regexp describing the end of a sentence. -;;;###autoload All paragraph boundaries also end sentences, regardless.") - -;;;###autoload (defconst page-delimiter "^\014" "\ -;;;###autoload *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 +(defconst paragraph-start "^[ \t\n\f]" "\ +*Regexp for beginning of a line that starts OR separates paragraphs.") + +;;;###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]*") "\ +*Regexp describing the end of a sentence. +All paragraph boundaries also end sentences, regardless.") + +;;;###autoload +(defconst page-delimiter "^\014" "\ +*Regexp describing line-beginnings that separate pages.") + +;;;###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) diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 6c8b7a60b79..2c1ab18bef2 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -533,7 +533,8 @@ they are not defaultly assigned to keys." "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. diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index be0b4037bed..3f0a062a11d 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -165,8 +165,10 @@ is used." '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 @@ subshell is initiated, the value of tex-shell-hook is called." (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 () |