From aab12958c67ed446ee355f455ae14be453b0362b Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Tue, 20 Mar 2007 08:49:53 +0000 Subject: [PATCH] (do_auto_save_unwind): Add BLOCK_INPUT around fclose. (Fdo_auto_save): Add BLOCK_INPUT around fwrite. --- src/fileio.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/fileio.c b/src/fileio.c index df6a666876..3523c5cb48 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -5804,7 +5804,11 @@ do_auto_save_unwind (arg) /* used as unwind-protect function */ 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 @@ A non-nil CURRENT-ONLY argument means save only current buffer. */) 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 @@ A non-nil CURRENT-ONLY argument means save only current buffer. */) fwrite (SDATA (b->auto_save_file_name), 1, SBYTES (b->auto_save_file_name), stream); putc ('\n', stream); + UNBLOCK_INPUT; } if (!NILP (current_only) -- 2.20.1