From: Richard M. Stallman Date: Wed, 7 Jul 1993 22:21:19 +0000 (+0000) Subject: (texinfo-update-node): Bind auto-fill-hook as well as auto-fill-function. X-Git-Tag: emacs-19.34~11822 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe3371ef58ce66ebedc4424d506afaef51ab7467;p=emacs.git (texinfo-update-node): Bind auto-fill-hook as well as auto-fill-function. (texinfo-sequential-node-update): Likewise. --- 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)