diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-24 22:34:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-24 22:34:52 +0000 |
| commit | a62342463a333d8f6e0be00bc3b03c6082a291e2 (patch) | |
| tree | e1c83be5af1b5ff65a5441e37474ee5257cf508c /lisp/textmodes/nroff-mode.el | |
| parent | bd133320961b10e7abda6ffa86b3cc3fe78f981f (diff) | |
| download | emacs-a62342463a333d8f6e0be00bc3b03c6082a291e2.tar.gz | |
(nroff-mode): Set outline-regexp and outline-level.
(nroff-outline-level): New function.
Diffstat (limited to 'lisp/textmodes/nroff-mode.el')
| -rw-r--r-- | lisp/textmodes/nroff-mode.el | 10 |
1 files changed, 10 insertions, 0 deletions
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 () |