Mercurial > emacs
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)