changeset 14128:6b1ecb157b48

(do_auto_save_unwind): Don't close DESC if DESC < 0. (Fdo_auto_save): Unconditionally set up unwind-protect.
author Karl Heuer <kwzh@gnu.org>
date Tue, 09 Jan 1996 23:39:43 +0000
parents ebaba7107594
children d0b95da4f1f2
files src/fileio.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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;