*** nroff-mode.el	12 Mar 2007 10:16:24 +1100	1.32
--- nroff-mode.el	24 May 2007 09:33:22 +1000	
***************
*** 66,71 ****
--- 66,73 ----
      ;; ' used otherwise).
      (modify-syntax-entry ?\" "\"  2" st)
      ;; Comments are delimited by \" and newline.
+     ;; And in groff also \# to newline.
+     (modify-syntax-entry ?# ".  2"  st)
      (modify-syntax-entry ?\\ "\\  1" st)
      (modify-syntax-entry ?\n ">" st)
      st)
***************
*** 92,98 ****
  	 (mapconcat 'identity
  		    '("[f*n]*\\[.+?]" ; some groff extensions
  		      "(.."	      ; two chars after (
! 		      "[^(\"]"	      ; single char escape
  		      ) "\\|")
  	 "\\)")
     )
--- 94,100 ----
  	 (mapconcat 'identity
  		    '("[f*n]*\\[.+?]" ; some groff extensions
  		      "(.."	      ; two chars after (
! 		      "[^(\"#]"	      ; single char escape
  		      ) "\\|")
  	 "\\)")
     )
***************
*** 127,133 ****
         (concat "[.']\\|" paragraph-separate))
    ;; comment syntax added by mit-erl!gildea 18 Apr 86
    (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))
--- 129,135 ----
         (concat "[.']\\|" paragraph-separate))
    ;; comment syntax added by mit-erl!gildea 18 Apr 86
    (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))