Mercurial > emacs
comparison lisp/textmodes/tex-mode.el @ 2571:b65cf676a09b
All fsets changed to defaliases.
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Fri, 23 Apr 1993 06:51:44 +0000 |
parents | 10e417efb12a |
children | 48318133e7a6 |
comparison
equal
deleted
inserted
replaced
2570:a880046a1a67 | 2571:b65cf676a09b |
---|---|
212 (define-key tex-mode-map "\C-c\C-e" 'tex-close-latex-block)) | 212 (define-key tex-mode-map "\C-c\C-e" 'tex-close-latex-block)) |
213 | 213 |
214 (defvar tex-shell-map nil | 214 (defvar tex-shell-map nil |
215 "Keymap for the tex-shell. A comint-mode-map with a few additions.") | 215 "Keymap for the tex-shell. A comint-mode-map with a few additions.") |
216 | 216 |
217 ;(fset 'TeX-mode 'tex-mode) ;in loaddefs. | 217 ;(defalias 'TeX-mode 'tex-mode) ;in loaddefs. |
218 | 218 |
219 ;;; This would be a lot simpler if we just used a regexp search, | 219 ;;; This would be a lot simpler if we just used a regexp search, |
220 ;;; but then it would be too slow. | 220 ;;; but then it would be too slow. |
221 ;;;###autoload | 221 ;;;###autoload |
222 (defun tex-mode () | 222 (defun tex-mode () |
242 'latex-mode) | 242 'latex-mode) |
243 'plain-tex-mode)))) | 243 'plain-tex-mode)))) |
244 (if mode (funcall mode) | 244 (if mode (funcall mode) |
245 (funcall tex-default-mode)))) | 245 (funcall tex-default-mode)))) |
246 ;;;###autoload | 246 ;;;###autoload |
247 (fset 'TeX-mode 'tex-mode) | 247 (defalias 'TeX-mode 'tex-mode) |
248 ;;;###autoload | 248 ;;;###autoload |
249 (fset 'LaTeX-mode 'latex-mode) | 249 (defalias 'LaTeX-mode 'latex-mode) |
250 | 250 |
251 ;;;###autoload | 251 ;;;###autoload |
252 (defun plain-tex-mode () | 252 (defun plain-tex-mode () |
253 "Major mode for editing files of input for plain TeX. | 253 "Major mode for editing files of input for plain TeX. |
254 Makes $ and } display the characters they match. | 254 Makes $ and } display the characters they match. |
297 (setq tex-start-of-header "%**start of header") | 297 (setq tex-start-of-header "%**start of header") |
298 (setq tex-end-of-header "%**end of header") | 298 (setq tex-end-of-header "%**end of header") |
299 (setq tex-trailer "\\bye\n") | 299 (setq tex-trailer "\\bye\n") |
300 (run-hooks 'text-mode-hook 'tex-mode-hook 'plain-tex-mode-hook)) | 300 (run-hooks 'text-mode-hook 'tex-mode-hook 'plain-tex-mode-hook)) |
301 ;;;###autoload | 301 ;;;###autoload |
302 (fset 'plain-TeX-mode 'plain-tex-mode) | 302 (defalias 'plain-TeX-mode 'plain-tex-mode) |
303 | 303 |
304 ;;;###autoload | 304 ;;;###autoload |
305 (defun latex-mode () | 305 (defun latex-mode () |
306 "Major mode for editing files of input for LaTeX. | 306 "Major mode for editing files of input for LaTeX. |
307 Makes $ and } display the characters they match. | 307 Makes $ and } display the characters they match. |