mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-02 11:50:48 -08:00
Code Issues Projects Releases Wiki Activity

(do_auto_save_unwind): Don't close DESC if DESC < 0.

Browse source 
(Fdo_auto_save): Unconditionally set up unwind-protect.
This commit is contained in:
Karl Heuer 1996-01-09 23:39:43 +00:00
parent 1efa2983a4
commit 5badd6a0ad
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fileio.c
View file

@ -3827,7 +3827,8 @@ do_auto_save_unwind (desc) /* used as unwind-protect function */
Lisp_Object desc;
{
auto_saving = 0;
close (XINT (desc));
if (XINT (desc) >= 0)
close (XINT (desc));
return Qnil;
}
@ -3887,8 +3888,7 @@ A non-nil CURRENT-ONLY argument means save only current buffer.")
/* Arrange to close that file whether or not we get an error.
Also reset auto_saving to 0. */
if (listdesc >= 0)
record_unwind_protect (do_auto_save_unwind, make_number (listdesc));
record_unwind_protect (do_auto_save_unwind, make_number (listdesc));
auto_saving = 1;