changeset 24621:54ef2ebc8494

(texinfo-format-buffer): Bind coding-system-for-write, to avoid hanging when non-interactive.
author Karl Heuer <kwzh@gnu.org>
date Mon, 26 Apr 1999 04:13:01 +0000
parents ea2988489a80
children 787f4cefd148
files lisp/textmodes/texinfmt.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/texinfmt.el	Mon Apr 26 04:08:25 1999 +0000
+++ b/lisp/textmodes/texinfmt.el	Mon Apr 26 04:13:01 1999 +0000
@@ -113,7 +113,8 @@
 and don't split the file if large.  You can use Info-tagify and
 Info-split to do these manually."
   (interactive "P")
-  (let ((lastmessage "Formatting Info file..."))
+  (let ((lastmessage "Formatting Info file...")
+	(coding-system-for-write buffer-file-coding-system))
     (message lastmessage)
     (widen)
     (texinfo-format-buffer-1)