diff options
| author | Dave Love <fx@gnu.org> | 2003-01-03 20:04:48 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2003-01-03 20:04:48 +0000 |
| commit | 500acb7900e6eb143189491ce661e6af64f1d24c (patch) | |
| tree | ddbb60c9700b49885ea5be0884901efc6fad32fb /lisp/textmodes/nroff-mode.el | |
| parent | bf9f5c1753132946610f1ec201516ae71ab95578 (diff) | |
| download | emacs-500acb7900e6eb143189491ce661e6af64f1d24c.tar.gz | |
(nroff-mode-hook): Customize.
(nroff-imenu-expression): New.
(nroff-mode): Use it.
Diffstat (limited to 'lisp/textmodes/nroff-mode.el')
| -rw-r--r-- | lisp/textmodes/nroff-mode.el | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el index 76849019ac5..de122679f98 100644 --- a/lisp/textmodes/nroff-mode.el +++ b/lisp/textmodes/nroff-mode.el @@ -1,6 +1,6 @@ ;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source -;; Copyright (C) 1985, 1986, 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1985, 86, 94, 95, 97, 2001 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp @@ -68,6 +68,10 @@ st) "Syntax table used while in `nroff-mode'.") +(defvar nroff-imenu-expression + ;; man headers: + '((nil "^\\.SH \"?\\([^\"\n]*\\)\"?$" 1))) + (defcustom nroff-font-lock-keywords (list ;; Directives are . or ' at start of line, followed by @@ -93,6 +97,11 @@ :group 'nroff :type '(repeat regexp)) +(defcustom nroff-mode-hook nil + "Hook run by function `nroff-mode'." + :type 'hook + :group 'nroff) + ;;;###autoload (define-derived-mode nroff-mode text-mode "Nroff" "Major mode for editing text intended for nroff to format. @@ -118,7 +127,8 @@ closing requests for requests that are used in matched pairs." (set (make-local-variable 'comment-start) "\\\" ") (set (make-local-variable 'comment-start-skip) "\\\\\"[ \t]*") (set (make-local-variable 'comment-column) 24) - (set (make-local-variable 'comment-indent-function) 'nroff-comment-indent)) + (set (make-local-variable 'comment-indent-function) 'nroff-comment-indent) + (set (make-local-variable 'imenu-generic-expression) nroff-imenu-expression)) (defun nroff-outline-level () (save-excursion |