From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 24 Feb 1994 22:34:52 +0000 (+0000)
Subject: (nroff-mode): Set outline-regexp and outline-level.
X-Git-Tag: emacs-19.34~9777
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a62342463a333d8f6e0be00bc3b03c6082a291e2;p=emacs.git

(nroff-mode): Set outline-regexp and outline-level.
(nroff-outline-level): New function.
---

diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el
index 78c6a10f31c..6ee2c2bb47f 100644
--- a/lisp/textmodes/nroff-mode.el
+++ b/lisp/textmodes/nroff-mode.el
@@ -62,6 +62,10 @@ closing requests for requests that are used in matched pairs."
   (setq local-abbrev-table nroff-mode-abbrev-table)
   (make-local-variable 'nroff-electric-mode)
   (setq nroff-electric-mode nil)
+  (make-local-variable 'outline-regexp)
+  (setq outline-regexp "\\.H[ ]+[1-7]+ ")
+  (make-local-variable 'outline-level)
+  (setq outline-level 'nroff-outline-level)o
   ;; now define a bunch of variables for use by commands in this mode
   (make-local-variable 'page-delimiter)
   (setq page-delimiter "^\\.\\(bp\\|SK\\|OP\\)")
@@ -80,6 +84,12 @@ closing requests for requests that are used in matched pairs."
   (setq comment-indent-function 'nroff-comment-indent)
   (run-hooks 'text-mode-hook 'nroff-mode-hook))
 
+(defun nroff-outline-level ()
+  (save-excursion
+    (looking-at outline-regexp)
+    (skip-chars-forward ".H ")
+    (string-to-int (buffer-substring (point) (+ 1 (point))))))
+
 ;;; Compute how much to indent a comment in nroff/troff source.
 ;;; By mit-erl!gildea April 86
 (defun nroff-comment-indent ()