aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorRoland McGrath1991-05-09 21:50:34 +0000
committerRoland McGrath1991-05-09 21:50:34 +0000
commit7229064dbf9dfcb873824a6f2a9af0bdb112b550 (patch)
treef024dce4c7262b3a5803600360b1ade5bf8bdb59 /lisp/textmodes
parentd6003f63e9a3bee57bc3c87ac3e597326e221bb6 (diff)
downloademacs-7229064dbf9dfcb873824a6f2a9af0bdb112b550.tar.gz
emacs-7229064dbf9dfcb873824a6f2a9af0bdb112b550.zip
*** empty log message ***
Diffstat (limited to 'lisp/textmodes')
-rw-r--r--lisp/textmodes/ispell4.el4
-rw-r--r--lisp/textmodes/picture.el3
-rw-r--r--lisp/textmodes/tex-mode.el9
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.
190First the file is scanned for misspelled words, then ispell 191First 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.
292See `ispell' for more information." 294See `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.
451Picture mode is invoked by the command \\[edit-picture].") 451Picture 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.
455Printing characters replace instead of inserting themselves with motion 456Printing 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.
145Tries to determine (by looking at the beginning of the file) whether 146Tries 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.
173Makes $ and } display the characters they match. 174Makes $ 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.
220Makes $ and } display the characters they match. 223Makes $ and } display the characters they match.