Mercurial > emacs
changeset 6075:b23452652292
(nroff-mode): Set outline-regexp and outline-level.
(nroff-outline-level): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 24 Feb 1994 22:34:52 +0000 |
| parents | 33f42f5f7448 |
| children | 4f76564fc2cd |
| files | lisp/textmodes/nroff-mode.el |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/nroff-mode.el Thu Feb 24 22:34:24 1994 +0000 +++ b/lisp/textmodes/nroff-mode.el Thu Feb 24 22:34:52 1994 +0000 @@ -62,6 +62,10 @@ (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 @@ (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 ()