# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 742083679 0
# Node ID 8bf916902edca97b538e9bdbd30e4c1f680f0068
# Parent  3831300d2ecb5efc87566aedb6b9532c33f0429f
(texinfo-update-node): Bind auto-fill-hook as well as auto-fill-function.
(texinfo-sequential-node-update): Likewise.

diff -r 3831300d2ecb -r 8bf916902edc lisp/textmodes/texnfo-upd.el
--- 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)