diff options
| author | Gerd Moellmann <[email protected]> | 2000-09-25 11:16:43 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2000-09-25 11:16:43 +0000 |
| commit | 8bd88d54523530ad7044750b44e4e88976eb6073 (patch) | |
| tree | 76db1c1d2218061882948ced206671f72695af15 /lisp/textmodes | |
| parent | 5f9f981bc10dd6b90395ee66e2ff8f364859bdf8 (diff) | |
(texinfo-mode): Prevent filling lines
starting with `@def' or `@multitable', in addition to ones
specified by the user in auto-fill-inhibit-regexp.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/texinfo.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index ce751e965e..3a87b79e95 100644 --- 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 "\\)"))))) + ;;; Insert string commands |