diff options
| author | Stefan Monnier | 2000-11-06 15:49:33 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-11-06 15:49:33 +0000 |
| commit | 17ff7a277a9add4a3f3eae371caedddb5173977c (patch) | |
| tree | 916ed5e1e5490b28c288dfd2e5c8d86d05278a7c | |
| parent | cdb1fe495d228677248cc4a9a6081458df33d518 (diff) | |
| download | emacs-17ff7a277a9add4a3f3eae371caedddb5173977c.tar.gz emacs-17ff7a277a9add4a3f3eae371caedddb5173977c.zip | |
(texinfo-chapter-level-regexp): Remove.
(texinfo-mode): Hard code texinfo-chapter-level-regexp.
| -rw-r--r-- | lisp/textmodes/texinfo.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 596ad94814f..1a8eec0cbd3 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el | |||
| @@ -438,13 +438,6 @@ chapter." | |||
| 438 | 438 | ||
| 439 | ;;; Texinfo mode | 439 | ;;; Texinfo mode |
| 440 | 440 | ||
| 441 | ;; Also defined in texnfo-upd.el but copied here to avoid having | ||
| 442 | ;; to require texnfo-upd.el. | ||
| 443 | (defvar texinfo-chapter-level-regexp | ||
| 444 | "chapter\\|unnumbered \\|appendix \\|majorheading\\|chapheading" | ||
| 445 | "Regular expression matching Texinfo chapter-level headings. | ||
| 446 | This does not match `@node' and does not match the `@top' command.") | ||
| 447 | |||
| 448 | ;;;###autoload | 441 | ;;;###autoload |
| 449 | (define-derived-mode texinfo-mode text-mode "Texinfo" | 442 | (define-derived-mode texinfo-mode text-mode "Texinfo" |
| 450 | "Major mode for editing Texinfo files. | 443 | "Major mode for editing Texinfo files. |
| @@ -516,7 +509,7 @@ value of `texinfo-mode-hook'." | |||
| 516 | (setq page-delimiter | 509 | (setq page-delimiter |
| 517 | (concat | 510 | (concat |
| 518 | "^@node [ \t]*[Tt]op\\|^@\\(" | 511 | "^@node [ \t]*[Tt]op\\|^@\\(" |
| 519 | texinfo-chapter-level-regexp | 512 | "chapter\\|unnumbered \\|appendix \\|majorheading\\|chapheading" |
| 520 | "\\)")) | 513 | "\\)")) |
| 521 | (make-local-variable 'require-final-newline) | 514 | (make-local-variable 'require-final-newline) |
| 522 | (setq require-final-newline t) | 515 | (setq require-final-newline t) |