# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1174380593 0
# Node ID e0b9cd18e1b6112028fc42adb9e67106021ce7b6
# Parent  685fa6c9ae44fc4fe8f528550e68b81abff066d0
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
(Fdo_auto_save): Add BLOCK_INPUT around fwrite.

diff -r 685fa6c9ae44 -r e0b9cd18e1b6 src/fileio.c
--- a/src/fileio.c	Tue Mar 20 08:49:37 2007 +0000
+++ b/src/fileio.c	Tue Mar 20 08:49:53 2007 +0000
@@ -5804,7 +5804,11 @@
   FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer;
   auto_saving = 0;
   if (stream != NULL)
-    fclose (stream);
+    {
+      BLOCK_INPUT;
+      fclose (stream);
+      UNBLOCK_INPUT;
+    }
   return Qnil;
 }
 
@@ -5934,6 +5938,7 @@
 	if (STRINGP (b->auto_save_file_name)
 	    && stream != NULL && do_handled_files == 0)
 	  {
+	    BLOCK_INPUT;
 	    if (!NILP (b->filename))
 	      {
 		fwrite (SDATA (b->filename), 1,
@@ -5943,6 +5948,7 @@
 	    fwrite (SDATA (b->auto_save_file_name), 1,
 		    SBYTES (b->auto_save_file_name), stream);
 	    putc ('\n', stream);
+	    UNBLOCK_INPUT;
 	  }
 
 	if (!NILP (current_only)