diff options
| author | Roland McGrath | 1991-05-09 21:50:34 +0000 |
|---|---|---|
| committer | Roland McGrath | 1991-05-09 21:50:34 +0000 |
| commit | 7229064dbf9dfcb873824a6f2a9af0bdb112b550 (patch) | |
| tree | f024dce4c7262b3a5803600360b1ade5bf8bdb59 /lisp/textmodes | |
| parent | d6003f63e9a3bee57bc3c87ac3e597326e221bb6 (diff) | |
| download | emacs-7229064dbf9dfcb873824a6f2a9af0bdb112b550.tar.gz emacs-7229064dbf9dfcb873824a6f2a9af0bdb112b550.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell4.el | 4 | ||||
| -rw-r--r-- | lisp/textmodes/picture.el | 3 | ||||
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 9 |
3 files changed, 12 insertions, 4 deletions
diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el index 782ea43103c..3ca62150511 100644 --- a/lisp/textmodes/ispell4.el +++ b/lisp/textmodes/ispell4.el | |||
| @@ -185,6 +185,7 @@ word any word is checked for spelling. Result is | |||
| 185 | (defun ispell-tex-buffer-p () | 185 | (defun ispell-tex-buffer-p () |
| 186 | (memq major-mode '(plain-TeX-mode LaTeX-mode))) | 186 | (memq major-mode '(plain-TeX-mode LaTeX-mode))) |
| 187 | 187 | ||
| 188 | ;;;###autoload | ||
| 188 | (defun ispell (&optional buf start end) | 189 | (defun ispell (&optional buf start end) |
| 189 | "Run ispell over current buffer's visited file. | 190 | "Run ispell over current buffer's visited file. |
| 190 | First the file is scanned for misspelled words, then ispell | 191 | First the file is scanned for misspelled words, then ispell |
| @@ -287,6 +288,7 @@ q, \\[keyboard-quit] Leave the command loop. You can come back later with \\[is | |||
| 287 | (ispell-dump)) | 288 | (ispell-dump)) |
| 288 | 289 | ||
| 289 | 290 | ||
| 291 | ;;;###autoload | ||
| 290 | (defun ispell-word () | 292 | (defun ispell-word () |
| 291 | "Check the spelling of the word under the cursor. | 293 | "Check the spelling of the word under the cursor. |
| 292 | See `ispell' for more information." | 294 | See `ispell' for more information." |
| @@ -301,7 +303,9 @@ See `ispell' for more information." | |||
| 301 | (load-library "spell") | 303 | (load-library "spell") |
| 302 | (define-key esc-map "$" 'spell-word) | 304 | (define-key esc-map "$" 'spell-word) |
| 303 | (spell-word)))))) | 305 | (spell-word)))))) |
| 306 | ;;;###autoload (define-key esc-map "$" 'ispell-word) | ||
| 304 | 307 | ||
| 308 | ;;;###autoload | ||
| 305 | (defun ispell-region (start &optional end) | 309 | (defun ispell-region (start &optional end) |
| 306 | "Check the spelling for all of the words in the region." | 310 | "Check the spelling for all of the words in the region." |
| 307 | (interactive "r") | 311 | (interactive "r") |
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index d6915c4b0ae..6c8b7a60b79 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el | |||
| @@ -450,6 +450,7 @@ Leaves the region surrounding the rectangle." | |||
| 450 | "If non-nil, it's value is called on entry to Picture mode. | 450 | "If non-nil, it's value is called on entry to Picture mode. |
| 451 | Picture mode is invoked by the command \\[edit-picture].") | 451 | Picture mode is invoked by the command \\[edit-picture].") |
| 452 | 452 | ||
| 453 | ;;;###autoload | ||
| 453 | (defun edit-picture () | 454 | (defun edit-picture () |
| 454 | "Switch to Picture mode, in which a quarter-plane screen model is used. | 455 | "Switch to Picture mode, in which a quarter-plane screen model is used. |
| 455 | Printing characters replace instead of inserting themselves with motion | 456 | Printing characters replace instead of inserting themselves with motion |
| @@ -532,7 +533,7 @@ they are not defaultly assigned to keys." | |||
| 532 | "Type \\[picture-mode-exit] in this buffer to return it to %s mode.") | 533 | "Type \\[picture-mode-exit] in this buffer to return it to %s mode.") |
| 533 | picture-mode-old-mode-name))) | 534 | picture-mode-old-mode-name))) |
| 534 | 535 | ||
| 535 | (fset 'picture-mode 'edit-picture) ; for the confused | 536 | ;;;###autoload (fset 'picture-mode 'edit-picture) |
| 536 | 537 | ||
| 537 | (defun picture-mode-exit (&optional nostrip) | 538 | (defun picture-mode-exit (&optional nostrip) |
| 538 | "Undo edit-picture and return to previous major mode. | 539 | "Undo edit-picture and return to previous major mode. |
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 34daea299a3..be0b4037bed 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -140,6 +140,7 @@ Set by \\[tex-region], \\[tex-buffer], and \\[tex-file].") | |||
| 140 | 140 | ||
| 141 | ;;; This would be a lot simpler if we just used a regexp search, | 141 | ;;; This would be a lot simpler if we just used a regexp search, |
| 142 | ;;; but then it would be too slow. | 142 | ;;; but then it would be too slow. |
| 143 | ;;;###autoload | ||
| 143 | (defun tex-mode () | 144 | (defun tex-mode () |
| 144 | "Major mode for editing files of input for TeX, LaTeX, or SliTeX. | 145 | "Major mode for editing files of input for TeX, LaTeX, or SliTeX. |
| 145 | Tries to determine (by looking at the beginning of the file) whether | 146 | Tries to determine (by looking at the beginning of the file) whether |
| @@ -164,10 +165,10 @@ is used." | |||
| 164 | 'plain-tex-mode)))) | 165 | 'plain-tex-mode)))) |
| 165 | (if mode (funcall mode) | 166 | (if mode (funcall mode) |
| 166 | (funcall tex-default-mode)))) | 167 | (funcall tex-default-mode)))) |
| 168 | ;;;###autoload (fset 'TeX-mode 'tex-mode) | ||
| 169 | ;;;###autoload (fset 'LaTeX-mode 'latex-mode) | ||
| 167 | 170 | ||
| 168 | (fset 'plain-TeX-mode 'plain-tex-mode) | 171 | ;;;###autoload |
| 169 | (fset 'LaTeX-mode 'latex-mode) | ||
| 170 | |||
| 171 | (defun plain-tex-mode () | 172 | (defun plain-tex-mode () |
| 172 | "Major mode for editing files of input for plain TeX. | 173 | "Major mode for editing files of input for plain TeX. |
| 173 | Makes $ and } display the characters they match. | 174 | Makes $ and } display the characters they match. |
| @@ -214,7 +215,9 @@ subshell is initiated, the value of tex-shell-hook is called." | |||
| 214 | (setq tex-end-of-header "%**end of header") | 215 | (setq tex-end-of-header "%**end of header") |
| 215 | (setq tex-trailer "\\bye\n") | 216 | (setq tex-trailer "\\bye\n") |
| 216 | (run-hooks 'text-mode-hook 'tex-mode-hook 'plain-tex-mode-hook)) | 217 | (run-hooks 'text-mode-hook 'tex-mode-hook 'plain-tex-mode-hook)) |
| 218 | ;;;###autoload (fset 'plain-TeX-mode 'plain-tex-mode) | ||
| 217 | 219 | ||
| 220 | ;;;###autoload | ||
| 218 | (defun latex-mode () | 221 | (defun latex-mode () |
| 219 | "Major mode for editing files of input for LaTeX. | 222 | "Major mode for editing files of input for LaTeX. |
| 220 | Makes $ and } display the characters they match. | 223 | Makes $ and } display the characters they match. |