4002 |
(cdr parent)))))))))) |
(cdr parent)))))))))) |
4003 |
|
|
4004 |
(define-minor-mode LaTeX-math-mode |
(define-minor-mode LaTeX-math-mode |
4005 |
"A minor mode with easy acces to TeX math macros. |
"A minor mode with easy access to TeX math macros. |
4006 |
|
|
4007 |
Easy insertion of LaTeX math symbols. If you give a prefix argument, |
Easy insertion of LaTeX math symbols. If you give a prefix argument, |
4008 |
the symbols will be surrounded by dollar signs. The following |
the symbols will be surrounded by dollar signs. The following |
4448 |
:type 'hook |
:type 'hook |
4449 |
:group 'LaTeX) |
:group 'LaTeX) |
4450 |
|
|
4451 |
;;; Do not ;;;###autoload because of conflict with standard tex-mode.el. |
;;;###autoload |
4452 |
(TeX-defun latex-mode () |
(add-to-list 'auto-mode-alist '("\\.drv\\'" . latex-mode)) |
4453 |
|
|
4454 |
|
;;;###autoload |
4455 |
|
(TeX-doc) |
4456 |
|
;;;###autoload |
4457 |
|
(defun TeX-latex-mode () |
4458 |
"Major mode in %s for editing LaTeX files. |
"Major mode in %s for editing LaTeX files. |
4459 |
See info under AUCTeX for full documentation. |
See info under AUCTeX for full documentation. |
4460 |
|
|
4477 |
filladapt-mode) |
filladapt-mode) |
4478 |
(turn-off-filladapt-mode))) |
(turn-off-filladapt-mode))) |
4479 |
|
|
4480 |
(define-derived-mode doctex-mode latex-mode "docTeX" |
;;;###autoload |
4481 |
"Major mode for editing .dtx files derived from `LaTeX-mode'. |
(add-to-list 'auto-mode-alist '("\\.dtx\\'" . doctex-mode)) |
4482 |
Runs `latex-mode', sets a few variables and |
|
4483 |
runs the hooks in `doctex-mode-hook'." |
;;;###autoload |
4484 |
|
(TeX-doc) |
4485 |
|
;;;###autoload |
4486 |
|
(define-derived-mode docTeX-mode TeX-latex-mode "docTeX" |
4487 |
|
"Major mode in %s for editing .dtx files derived from `LaTeX-mode'. |
4488 |
|
Runs `LaTeX-mode', sets a few variables and |
4489 |
|
runs the hooks in `docTeX-mode-hook'." |
4490 |
|
|
4491 |
|
(setq major-mode 'doctex-mode) |
4492 |
(set (make-local-variable 'LaTeX-insert-into-comments) t) |
(set (make-local-variable 'LaTeX-insert-into-comments) t) |
4493 |
(set (make-local-variable 'LaTeX-syntactic-comments) t) |
(set (make-local-variable 'LaTeX-syntactic-comments) t) |
4494 |
(setq TeX-default-extension docTeX-default-extension) |
(setq TeX-default-extension docTeX-default-extension) |
4496 |
(TeX-set-mode-name) |
(TeX-set-mode-name) |
4497 |
(funcall TeX-install-font-lock)) |
(funcall TeX-install-font-lock)) |
4498 |
|
|
4499 |
|
;;This is actually a mess: to fit the scheme properly, our derived |
4500 |
|
;;mode definition would have had to be made for TeX-doctex-mode in the |
4501 |
|
;;first place, but then we could not have used define-derived-mode, or |
4502 |
|
;;all mode-specific variables would have gotten non-AUCTeX names. |
4503 |
|
;;This solution has the advantage that documentation strings are |
4504 |
|
;;provided in the autoloads, and has the disadvantage that docTeX-mode |
4505 |
|
;;is not aliased to doctex-mode (not even when the AUCTeX version is |
4506 |
|
;;disabled) as would be normal for our scheme. |
4507 |
|
|
4508 |
|
;;;#autoload |
4509 |
|
(defalias 'TeX-doctex-mode 'docTeX-mode) |
4510 |
|
|
4511 |
(defvar LaTeX-header-end |
(defvar LaTeX-header-end |
4512 |
(concat (regexp-quote TeX-esc) "begin *" TeX-grop "document" TeX-grcl) |
(concat (regexp-quote TeX-esc) "begin *" TeX-grop "document" TeX-grcl) |
4513 |
"Default end of header marker for LaTeX documents.") |
"Default end of header marker for LaTeX documents.") |