(texinfo-mode): Prevent filling lines

starting with `@def' or `@multitable', in addition to ones
specified by the user in auto-fill-inhibit-regexp.

diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index ce751e965eff0bf757c5f92f5918233ca0691c7e..3a87b79e95eb9b9d5e9ab61539be08e6dd2c7924 100644 (file)
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -530,7 +530,18 @@ value of `texinfo-mode-hook'."
   (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 "\\)")))))
+                 
 
 \f
 ;;; Insert string commands