Commit 17ff7a27 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(texinfo-chapter-level-regexp): Remove.

(texinfo-mode): Hard code texinfo-chapter-level-regexp.
parent cdb1fe49
...@@ -438,13 +438,6 @@ chapter." ...@@ -438,13 +438,6 @@ chapter."
;;; Texinfo mode ;;; Texinfo mode
;; Also defined in texnfo-upd.el but copied here to avoid having
;; to require texnfo-upd.el.
(defvar texinfo-chapter-level-regexp
"chapter\\|unnumbered \\|appendix \\|majorheading\\|chapheading"
"Regular expression matching Texinfo chapter-level headings.
This does not match `@node' and does not match the `@top' command.")
;;;###autoload ;;;###autoload
(define-derived-mode texinfo-mode text-mode "Texinfo" (define-derived-mode texinfo-mode text-mode "Texinfo"
"Major mode for editing Texinfo files. "Major mode for editing Texinfo files.
...@@ -516,7 +509,7 @@ value of `texinfo-mode-hook'." ...@@ -516,7 +509,7 @@ value of `texinfo-mode-hook'."
(setq page-delimiter (setq page-delimiter
(concat (concat
"^@node [ \t]*[Tt]op\\|^@\\(" "^@node [ \t]*[Tt]op\\|^@\\("
texinfo-chapter-level-regexp "chapter\\|unnumbered \\|appendix \\|majorheading\\|chapheading"
"\\)")) "\\)"))
(make-local-variable 'require-final-newline) (make-local-variable 'require-final-newline)
(setq require-final-newline t) (setq require-final-newline t)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment