/[emacs]/emacs/lisp/textmodes/nroff-mode.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/nroff-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by gerd, Fri Oct 5 09:37:17 2001 UTC revision 1.23.4.1 by miles, Fri Apr 4 06:20:37 2003 UTC
# Line 1  Line 1 
1  ;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source  ;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source
2    
3  ;; Copyright (C) 1985, 1986, 1994, 1995 Free Software Foundation, Inc.  ;; Copyright (C) 1985, 86, 94, 95, 97, 2001  Free Software Foundation, Inc.
4    
5  ;; Maintainer: FSF  ;; Maintainer: FSF
6  ;; Keywords: wp  ;; Keywords: wp
# Line 68  Line 68 
68      st)      st)
69    "Syntax table used while in `nroff-mode'.")    "Syntax table used while in `nroff-mode'.")
70    
71    (defvar nroff-imenu-expression
72      ;; man headers:
73      '((nil "^\\.SH \"?\\([^\"\n]*\\)\"?$" 1)))
74    
75  (defcustom nroff-font-lock-keywords  (defcustom nroff-font-lock-keywords
76    (list    (list
77     ;; Directives are . or ' at start of line, followed by     ;; Directives are . or ' at start of line, followed by
# Line 93  Line 97 
97    :group 'nroff    :group 'nroff
98    :type '(repeat regexp))    :type '(repeat regexp))
99    
100    (defcustom nroff-mode-hook nil
101      "Hook run by function `nroff-mode'."
102      :type 'hook
103      :group 'nroff)
104    
105  ;;;###autoload  ;;;###autoload
106  (define-derived-mode nroff-mode text-mode "Nroff"  (define-derived-mode nroff-mode text-mode "Nroff"
107    "Major mode for editing text intended for nroff to format.    "Major mode for editing text intended for nroff to format.
# Line 118  closing requests for requests that are u Line 127  closing requests for requests that are u
127    (set (make-local-variable 'comment-start) "\\\" ")    (set (make-local-variable 'comment-start) "\\\" ")
128    (set (make-local-variable 'comment-start-skip) "\\\\\"[ \t]*")    (set (make-local-variable 'comment-start-skip) "\\\\\"[ \t]*")
129    (set (make-local-variable 'comment-column) 24)    (set (make-local-variable 'comment-column) 24)
130    (set (make-local-variable 'comment-indent-function) 'nroff-comment-indent))    (set (make-local-variable 'comment-indent-function) 'nroff-comment-indent)
131      (set (make-local-variable 'imenu-generic-expression) nroff-imenu-expression))
132    
133  (defun nroff-outline-level ()  (defun nroff-outline-level ()
134    (save-excursion    (save-excursion

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.23.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26