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. |