mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 20:00:46 -08:00
Code Issues Projects Releases Wiki Activity

(do_auto_save_unwind): Add BLOCK_INPUT around fclose.

Browse source 
(Fdo_auto_save): Add BLOCK_INPUT around fwrite.
This commit is contained in:
YAMAMOTO Mitsuharu 2007-03-20 08:49:53 +00:00
parent 2c1e440960
commit aab12958c6
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/fileio.c
View file

@ -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)