# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 821230783 0
# Node ID 6b1ecb157b48c750b9b5a4f2f1c40b702d379dd0
# Parent  ebaba7107594a8ce22231eb2996fdf7f01717d57
(do_auto_save_unwind): Don't close DESC if DESC < 0.
(Fdo_auto_save): Unconditionally set up unwind-protect.

diff -r ebaba7107594 -r 6b1ecb157b48 src/fileio.c
--- a/src/fileio.c	Tue Jan 09 23:38:34 1996 +0000
+++ b/src/fileio.c	Tue Jan 09 23:39:43 1996 +0000
@@ -3827,7 +3827,8 @@
      Lisp_Object desc;
 {
   auto_saving = 0;
-  close (XINT (desc));
+  if (XINT (desc) >= 0)
+    close (XINT (desc));
   return Qnil;
 }
 
@@ -3887,8 +3888,7 @@
   
   /* 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;