[Emacs-diffs] Changes to emacs/lisp/textmodes/nroff-mode.el

[Miles Bader]

Index: emacs/lisp/textmodes/nroff-mode.el
diff -c emacs/lisp/textmodes/nroff-mode.el:1.23 
emacs/lisp/textmodes/nroff-mode.el:1.24
*** emacs/lisp/textmodes/nroff-mode.el:1.23     Fri Oct  5 05:37:17 2001
--- emacs/lisp/textmodes/nroff-mode.el  Fri Jan  3 15:04:48 2003
***************
*** 1,6 ****
  ;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source
  
! ;; Copyright (C) 1985, 1986, 1994, 1995 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: wp
--- 1,6 ----
  ;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source
  
! ;; Copyright (C) 1985, 86, 94, 95, 97, 2001  Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: wp
***************
*** 68,73 ****
--- 68,77 ----
      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,98 ****
--- 97,107 ----
    :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,124 ****
    (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))
  
  (defun nroff-outline-level ()
    (save-excursion
--- 127,134 ----
    (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 'imenu-generic-expression) 
nroff-imenu-expression))
  
  (defun nroff-outline-level ()
    (save-excursion