From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 5 Mar 1996 21:42:17 +0000 (+0000)
Subject: (texinfo-section-types-regexp)
X-Git-Tag: emacs-19.34~1100
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=491f6f0f3d0fd8076fcf2418c28abc237317a5d5;p=emacs.git

(texinfo-section-types-regexp)
(texinfo-section-level-regexp, texinfo-subsection-level-regexp)
(texinfo-subsubsection-level-regexp): Add defvars.

(texinfo-section-list): New variable.
(texinfo-outline-level): New function.
(texinfo-mode): Use them.
---

diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 667d32de736..dbccaf130fd 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -223,6 +223,40 @@ chapter."
     ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-function-name-face keep)
     )
   "Additional expressions to highlight in TeXinfo mode.")
+
+(defvar texinfo-section-list
+  '(("top" 1)
+    ("majorheading" 1)
+    ("chapter" 2)
+    ("unnumbered" 2)
+    ("appendix" 2)
+    ("chapheading" 2)
+    ("section" 3)
+    ("unnumberedsec" 3)
+    ("appendixsec" 3)
+    ("heading" 3)
+    ("subsection" 4)
+    ("unnumberedsubsec" 4)
+    ("appendixsubsec" 4)
+    ("subheading" 4)
+    ("subsubsection" 5)
+    ("unnumberedsubsubsec" 5)
+    ("appendixsubsubsec" 5)
+    ("subsubheading" 5))
+  "Alist of sectioning commands and their relative level.")
+
+(defun texinfo-outline-level ()
+  ;; Calculate level of current texinfo outline heading.
+  (save-excursion
+    (if (bobp)
+	0
+      (forward-char 1)
+      (let* ((word (buffer-substring-no-properties 
+		    (point) (progn (forward-word 1) (point))))
+	     (entry (assoc word texinfo-section-list)))
+	(if entry
+	    (nth 1 entry)
+	  5)))))
 
 ;;; Keybindings
 (defvar texinfo-mode-map nil)
@@ -401,6 +435,13 @@ value of texinfo-mode-hook."
   (setq imenu-generic-expression texinfo-imenu-generic-expression)
   (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults '(texinfo-font-lock-keywords t))
+  (make-local-variable 'outline-regexp)
+  (setq outline-regexp 
+	(concat "@\\("
+		(mapconcat 'car texinfo-section-list "\\>\\|")
+		"\\>\\)"))
+  (make-local-variable 'outline-level)
+  (setq outline-level 'texinfo-outline-level)
   (make-local-variable 'tex-start-of-header)
   (setq tex-start-of-header "%**start")
   (make-local-variable 'tex-end-of-header)
@@ -544,6 +585,12 @@ The default is not to surround any existing words with the braces."
 
 ;;; Texinfo file structure
 
+;; These are defined in tenfo-upd.el.
+(defvar texinfo-section-types-regexp)
+(defvar texinfo-section-level-regexp)
+(defvar texinfo-subsection-level-regexp)
+(defvar texinfo-subsubsection-level-regexp)
+
 (defun texinfo-show-structure (&optional nodes-too) 
   "Show the structure of a Texinfo file.
 List the lines in the file that begin with the @-sign commands for