martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(texinfo-update-node): Bind auto-fill-hook as well as auto-fill-function.

Browse Source 
(texinfo-sequential-node-update): Likewise.
This commit is contained in:
Richard M. Stallman
1993-07-07 22:21:19 +00:00
parent daa6abb8d5
commit fe3371ef58
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/texnfo-upd.el
View File

@@ -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)