diff options
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2007-03-20 08:49:53 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2007-03-20 08:49:53 +0000 |
| commit | aab12958c67ed446ee355f455ae14be453b0362b (patch) | |
| tree | ef5a4dfac1d65baa772b5d9bb91f14ebb8939ea6 /src/fileio.c | |
| parent | 2c1e440960fed94bb10cc3cc1e846baa109a8fc8 (diff) | |
| download | emacs-aab12958c67ed446ee355f455ae14be453b0362b.tar.gz emacs-aab12958c67ed446ee355f455ae14be453b0362b.tar.bz2 emacs-aab12958c67ed446ee355f455ae14be453b0362b.zip | |
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
(Fdo_auto_save): Add BLOCK_INPUT around fwrite.
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c index df6a6668766..3523c5cb487 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) |