comparison src/fileio.c @ 7526:bf357bdc648e

(Fdo_auto_save): Save listdesc as an integer, only if open. (do_auto_save_unwind): Corresponding changes.

7525:5b784d881c0f

		   current_buffer->auto_save_file_name,
		   Qnil, Qlambda);
}

static Lisp_Object
do_auto_save_unwind (stream)  /* used as unwind-protect function */
     Lisp_Object stream;
{
  close (*(int *)XPNTR (stream));
  xfree (XPNTR (stream));
  return Qnil;
}

DEFUN ("do-auto-save", Fdo_auto_save, Sdo_auto_save, 0, 2, "",
  "Auto-save all buffers that need it.\n\

      listdesc = creat (XSTRING (Vauto_save_list_file_name)->data, 0666);
#endif /* not MSDOS */
    }
  else
    listdesc = -1;

  /* We may not be able to store STREAM itself as a Lisp_Object pointer
     since that is guaranteed to work only for data that has been malloc'd.
     So malloc a full-size pointer, and record the address of that pointer.  */
  ptr = (int *) xmalloc (sizeof (int));
  *ptr = listdesc;
  XSET (lispstream, Lisp_Internal_Stream, (int) ptr);
  
  record_unwind_protect (do_auto_save_unwind, lispstream);

  /* First, save all files which don't have handlers.  If Emacs is
     crashing, the handlers may tweak what is causing Emacs to crash
     in the first place, and it would be a shame if Emacs failed to
     autosave perfectly ordinary files because it couldn't handle some

7526:bf357bdc648e

		   current_buffer->auto_save_file_name,
		   Qnil, Qlambda);
}

static Lisp_Object
do_auto_save_unwind (desc)  /* used as unwind-protect function */
     Lisp_Object desc;
{
  close (XINT (desc));
  return Qnil;
}

DEFUN ("do-auto-save", Fdo_auto_save, Sdo_auto_save, 0, 2, "",
  "Auto-save all buffers that need it.\n\

      listdesc = creat (XSTRING (Vauto_save_list_file_name)->data, 0666);
#endif /* not MSDOS */
    }
  else
    listdesc = -1;
  
  /* Arrange to close that file whether or not we get an error.  */
  if (listdesc >= 0)
    record_unwind_protect (do_auto_save_unwind, make_number (listdesc));

  /* First, save all files which don't have handlers.  If Emacs is
     crashing, the handlers may tweak what is causing Emacs to crash
     in the first place, and it would be a shame if Emacs failed to
     autosave perfectly ordinary files because it couldn't handle some