comparison lisp/textmodes/texinfo.el @ 53624:d41bcaa9f380

(texinfo-mode): define outline-regexp to start with ^, since that's what texinfo-show-structure documentation says (plus it works much better in texinfo.txi).

53623:47b199ab67ae

;;; texinfo.el --- major mode for editing Texinfo files

;; Copyright (C) 1985,88,89,90,91,92,93,96,97,2000,01,03
;;           Free Software Foundation, Inc.

;; Author: Robert J. Chassell
;; Date:   [See date below for texinfo-version]
;; Maintainer: FSF

       ;; We should merge outline-heading-alist and texinfo-section-list
       ;; but in the mean time, let's just generate one from the other.
       (mapcar (lambda (x) (cons (concat "@" (car x)) (cadr x)))
	       texinfo-section-list))
  (set (make-local-variable 'outline-regexp)
       (concat (regexp-opt (mapcar 'car outline-heading-alist) t)
	       "\\>"))

  (make-local-variable 'tex-start-of-header)
  (setq tex-start-of-header "%\\*\\*start")
  (make-local-variable 'tex-end-of-header)

53624:d41bcaa9f380

;;; texinfo.el --- major mode for editing Texinfo files

;; Copyright (C) 1985,88,89,90,91,92,93,96,97,2000,01,03, 04
;;           Free Software Foundation, Inc.

;; Author: Robert J. Chassell
;; Date:   [See date below for texinfo-version]
;; Maintainer: FSF

       ;; We should merge outline-heading-alist and texinfo-section-list
       ;; but in the mean time, let's just generate one from the other.
       (mapcar (lambda (x) (cons (concat "@" (car x)) (cadr x)))
	       texinfo-section-list))
  (set (make-local-variable 'outline-regexp)
       (concat "^" (regexp-opt (mapcar 'car outline-heading-alist) t)
	       "\\>"))

  (make-local-variable 'tex-start-of-header)
  (setq tex-start-of-header "%\\*\\*start")
  (make-local-variable 'tex-end-of-header)