aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKarl Heuer1996-01-09 23:39:43 +0000
committerKarl Heuer1996-01-09 23:39:43 +0000
commit5badd6a0ad3fcd784c127205ee5fb8d7a8b04034 (patch)
tree4afbf4b4570d6b52c1fdff05416fdb16a29749a9 /src
parent1efa2983a439ae1f5f282cd0c780bded4869881a (diff)
downloademacs-5badd6a0ad3fcd784c127205ee5fb8d7a8b04034.tar.gz
emacs-5badd6a0ad3fcd784c127205ee5fb8d7a8b04034.zip
(do_auto_save_unwind): Don't close DESC if DESC < 0.
(Fdo_auto_save): Unconditionally set up unwind-protect.
Diffstat (limited to 'src')
-rw-r--r--src/fileio.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/fileio.c b/src/fileio.c
index 626a69d40f6..41857c43350 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3827,7 +3827,8 @@ do_auto_save_unwind (desc) /* used as unwind-protect function */
3827 Lisp_Object desc; 3827 Lisp_Object desc;
3828{ 3828{
3829 auto_saving = 0; 3829 auto_saving = 0;
3830 close (XINT (desc)); 3830 if (XINT (desc) >= 0)
3831 close (XINT (desc));
3831 return Qnil; 3832 return Qnil;
3832} 3833}
3833 3834
@@ -3887,8 +3888,7 @@ A non-nil CURRENT-ONLY argument means save only current buffer.")
3887 3888
3888 /* Arrange to close that file whether or not we get an error. 3889 /* Arrange to close that file whether or not we get an error.
3889 Also reset auto_saving to 0. */ 3890 Also reset auto_saving to 0. */
3890 if (listdesc >= 0) 3891 record_unwind_protect (do_auto_save_unwind, make_number (listdesc));
3891 record_unwind_protect (do_auto_save_unwind, make_number (listdesc));
3892 3892
3893 auto_saving = 1; 3893 auto_saving = 1;
3894 3894