# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 969880603 0
# Node ID 42f05d7aadd0c5142f9d450bc11e9eac10298c31
# Parent  5dd0f3ffac6f7d4f27ecd9bec259633576819a14
(texinfo-mode): Prevent filling lines
starting with `@def' or `@multitable', in addition to ones
specified by the user in auto-fill-inhibit-regexp.

diff -r 5dd0f3ffac6f -r 42f05d7aadd0 lisp/textmodes/texinfo.el
--- a/lisp/textmodes/texinfo.el	Mon Sep 25 10:35:47 2000 +0000
+++ b/lisp/textmodes/texinfo.el	Mon Sep 25 11:16:43 2000 +0000
@@ -530,7 +530,18 @@
   (make-local-variable 'tex-first-line-header-regexp)
   (setq tex-first-line-header-regexp "^\\\\input")
   (make-local-variable 'tex-trailer)
-  (setq tex-trailer "@bye\n"))
+  (setq tex-trailer "@bye\n")
+
+  ;; Prevent filling certain lines, in addition to ones specified
+  ;; by the user.
+  (let ((prevent-filling "^@\\(def\\|multitable\\)"))
+    (make-local-variable 'auto-fill-inhibit-regexp)
+    (if (null auto-fill-inhibit-regexp)
+	(setq auto-fill-inhibit-regexp prevent-filling)
+      (setq auto-fill-inhibit-regexp
+	    (concat "\\(" auto-fill-inhibit-regexp "\\)\\|\\("
+		    prevent-filling "\\)")))))
+		  
 
 
 ;;; Insert string commands