From fe3371ef58ce66ebedc4424d506afaef51ab7467 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 7 Jul 1993 22:21:19 +0000 Subject: [PATCH] (texinfo-update-node): Bind auto-fill-hook as well as auto-fill-function. (texinfo-sequential-node-update): Likewise. --- lisp/textmodes/texnfo-upd.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el index 67bd142a428..84e01d8f83b 100644 --- a/lisp/textmodes/texnfo-upd.el +++ b/lisp/textmodes/texnfo-upd.el @@ -1240,13 +1240,15 @@ which menu descriptions are indented. Its default value is 32." (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 @@ Info `g*' command is inadequate." (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 @@ Info `g*' command is inadequate." "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) -- 2.39.5