Mercurial > emacs
changeset 4029:8bf916902edc
(texinfo-update-node): Bind auto-fill-hook as well as auto-fill-function.
(texinfo-sequential-node-update): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 07 Jul 1993 22:21:19 +0000 |
| parents | 3831300d2ecb |
| children | e5cf0991893a |
| files | lisp/textmodes/texnfo-upd.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/texnfo-upd.el Wed Jul 07 22:15:20 1993 +0000 +++ b/lisp/textmodes/texnfo-upd.el Wed Jul 07 22:21:19 1993 +0000 @@ -1240,13 +1240,15 @@ (interactive "P") (if (not region-p) - (let ((auto-fill-function nil)) ; update a single node + ;; update a single node + (let ((auto-fill-function nil) (auto-fill-hook nil)) (if (not (re-search-backward "^@node" (point-min) t)) (error "Node line not found before this position.")) (texinfo-update-the-node) (message "Done...updated the node. You may save the buffer.")) ;; else (let ((auto-fill-function nil) + (auto-fill-hook nil) (beginning (region-beginning)) (end (region-end))) (if (= end beginning) @@ -1489,7 +1491,8 @@ (interactive "P") (if (not region-p) - (let ((auto-fill-function nil)) ; update a single node + ;; update a single node + (let ((auto-fill-function nil) (auto-fill-hook nil)) (if (not (re-search-backward "^@node" (point-min) t)) (error "Node line not found before this position.")) (texinfo-sequentially-update-the-node) @@ -1497,6 +1500,7 @@ "Done...sequentially updated the node . You may save the buffer.")) ;; else (let ((auto-fill-function nil) + (auto-fill-hook nil) (beginning (region-beginning)) (end (region-end))) (if (= end beginning)