From: Thien-Thi Nguyen Date: Thu, 28 Jun 2007 07:14:47 +0000 (+0000) Subject: Groff \# comments. X-Git-Tag: emacs-pretest-23.0.90~12082 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd7c4fc57adaf718dc4aaea0069c4d55b9b5e71b;p=emacs.git Groff \# comments. (nroff-mode-syntax-table): \# comment intro, plain # as punct per global table. (nroff-font-lock-keywords): Add # as a single char escape. (nroff-mode): In comment-start-skip, match \#. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7b0dee39e1..a8d83c208b9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2007-06-28 Kevin Ryde + + * textmodes/nroff-mode.el: Groff \# comments. + (nroff-mode-syntax-table): \# comment intro, + plain # as punct per global table. + (nroff-font-lock-keywords): Add # as a single char escape. + (nroff-mode): In comment-start-skip, match \#. + 2007-06-28 Stefan Monnier * vc-bzr.el (vc-functions): Clear up the cache when reloading the file. diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el index ad0485fbb30..086f5156f28 100644 --- a/lisp/textmodes/nroff-mode.el +++ b/lisp/textmodes/nroff-mode.el @@ -66,6 +66,8 @@ ;; ' 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,7 +94,7 @@ (mapconcat 'identity '("[f*n]*\\[.+?]" ; some groff extensions "(.." ; two chars after ( - "[^(\"]" ; single char escape + "[^(\"#]" ; single char escape ) "\\|") "\\)") ) @@ -127,7 +129,7 @@ closing requests for requests that are used in matched pairs." (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-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))