diff lisp/textmodes/texnfo-upd.el @ 732:a8d94735277e

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Tue, 30 Jun 1992 13:54:21 +0000
parents fec3f9a1e3e5
children 1ca26ccad38e
line wrap: on
line diff
--- a/lisp/textmodes/texnfo-upd.el	Tue Jun 30 13:49:39 1992 +0000
+++ b/lisp/textmodes/texnfo-upd.el	Tue Jun 30 13:54:21 1992 +0000
@@ -2,13 +2,13 @@
 
 ;;;; Version 2.00   14 Dec 1990
 
-;;;; Copyright 1989, 1990 Free Software Foundation
+;;;; Copyright 1989, 1990, 1992 Free Software Foundation
 
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -1031,13 +1031,13 @@
   
   (interactive "P")
   (if (not region-p)
-      (let ((auto-fill-hook nil)) ; update a single node
+      (let ((auto-fill-function nil)) ; update a single node
         (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-hook nil)
+    (let ((auto-fill-function nil)
           (beginning (region-beginning))
 	  (end (region-end)))
       (if (= end beginning)
@@ -1245,14 +1245,14 @@
   
   (interactive "P")
   (if (not region-p)
-      (let ((auto-fill-hook nil))   ; update a single node
+      (let ((auto-fill-function nil))   ; update a single node
         (if (not (re-search-backward "^@node" (point-min) t))
             (error "Node line not found before this position."))
         (texinfo-sequentially-update-the-node)
         (message 
          "Done...sequentially updated the node .  You may save the buffer."))
     ;; else
-    (let ((auto-fill-hook nil)
+    (let ((auto-fill-function nil)
           (beginning (region-beginning))
           (end (region-end)))
       (if (= end beginning)