Mercurial > emacs
comparison lisp/textmodes/texinfo.el @ 31870:42f05d7aadd0
(texinfo-mode): Prevent filling lines
starting with `@def' or `@multitable', in addition to ones
specified by the user in auto-fill-inhibit-regexp.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 25 Sep 2000 11:16:43 +0000 |
| parents | f861d9d9705d |
| children | 3361e8eff740 |
comparison
equal
deleted
inserted
replaced
| 31869:5dd0f3ffac6f | 31870:42f05d7aadd0 |
|---|---|
| 528 (make-local-variable 'tex-end-of-header) | 528 (make-local-variable 'tex-end-of-header) |
| 529 (setq tex-end-of-header "%\\*\\*end") | 529 (setq tex-end-of-header "%\\*\\*end") |
| 530 (make-local-variable 'tex-first-line-header-regexp) | 530 (make-local-variable 'tex-first-line-header-regexp) |
| 531 (setq tex-first-line-header-regexp "^\\\\input") | 531 (setq tex-first-line-header-regexp "^\\\\input") |
| 532 (make-local-variable 'tex-trailer) | 532 (make-local-variable 'tex-trailer) |
| 533 (setq tex-trailer "@bye\n")) | 533 (setq tex-trailer "@bye\n") |
| 534 | |
| 535 ;; Prevent filling certain lines, in addition to ones specified | |
| 536 ;; by the user. | |
| 537 (let ((prevent-filling "^@\\(def\\|multitable\\)")) | |
| 538 (make-local-variable 'auto-fill-inhibit-regexp) | |
| 539 (if (null auto-fill-inhibit-regexp) | |
| 540 (setq auto-fill-inhibit-regexp prevent-filling) | |
| 541 (setq auto-fill-inhibit-regexp | |
| 542 (concat "\\(" auto-fill-inhibit-regexp "\\)\\|\\(" | |
| 543 prevent-filling "\\)"))))) | |
| 544 | |
| 534 | 545 |
| 535 | 546 |
| 536 ;;; Insert string commands | 547 ;;; Insert string commands |
| 537 | 548 |
| 538 (defconst texinfo-environments | 549 (defconst texinfo-environments |