(texinfo-format-buffer): Bind coding-system-for-write, to avoid hanging when

non-interactive.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index b1653ffa366..101737227b2 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -113,7 +113,8 @@ Non-nil argument (prefix, if interactive) means don't make tag table
 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)