nroff-mode don't auto-fill directives

[Kevin Ryde <user42@zip.com.au>]

[-- Attachment #1: Type: text/plain, Size: 469 bytes --]

This is my idea for not auto-filling nroff directive lines.  I struck it
on a long .URL line (a groff extension).  I think comment lines like .\"
should still auto-fill, as the do now, though they don't actually come
out quite right yet (neither before nor after this change).

2007-10-12  Kevin Ryde  <user42@zip.com.au>

	* textmodes/nroff-mode.el (nroff-mode): Set auto-fill-inhibit-regexp
	so as not to auto-fill on directive lines other than comment
	directives.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: nroff-mode.el.auto-fill.diff --]
[-- Type: text/x-diff, Size: 913 bytes --]

*** nroff-mode.el	14 Sep 2007 10:50:21 +1000	1.35
--- nroff-mode.el	12 Oct 2007 10:51:35 +1000	
***************
*** 127,132 ****
--- 127,141 ----
         (concat "[.']\\|" paragraph-start))
    (set (make-local-variable 'paragraph-separate)
         (concat "[.']\\|" paragraph-separate))
+ 
+   ;; Don't auto-fill directives, since they normally have to be one line,
+   ;; but do auto-fill comments .\" .\# and '''
+   ;; Comment directive pattern would be [.'][ \t]*[\\][#"], and this regexp
+   ;; is everything other than that, so not a backslash (and not a '' as in
+   ;; '''), or a backslash but then not # or "
+   (set (make-local-variable 'auto-fill-inhibit-regexp)
+        "[.'][ \t]*\\([^\\ \t']\\|\\\\[^#\"]\\)")
+ 
    ;; comment syntax added by mit-erl!gildea 18 Apr 86
    (set (make-local-variable 'comment-start) "\\\" ")
    (set (make-local-variable 'comment-start-skip) "\\\\[\"#][ \t]*")

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel