comparison src/callproc.c @ 8555:f1b1537ed3f6

(Fcall_process_region): gcpro filename_string.

8554:0b44462dbbc8

If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
  (nargs, args)
     int nargs;
     register Lisp_Object *args;
{
  register Lisp_Object filename_string, start, end;
#ifdef MSDOS
  char *tempfile;
#else
  char tempfile[20];
#endif

#endif /* not MSDOS */

  mktemp (tempfile);

  filename_string = build_string (tempfile);
  start = args[0];
  end = args[1];
#ifdef MSDOS
  specbind (Qbuffer_file_type, Vbinary_process_input);
  Fwrite_region (start, end, filename_string, Qnil, Qlambda);

  if (!NILP (args[3]))
    Fdelete_region (start, end);

  args[3] = filename_string;

  return unbind_to (count, Fcall_process (nargs - 2, args + 2));
}

#ifndef VMS /* VMS version is in vmsproc.c.  */

/* This is the last thing run in a newly forked inferior

8555:f1b1537ed3f6

If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
  (nargs, args)
     int nargs;
     register Lisp_Object *args;
{
  struct gcpro gcpro1;
  Lisp_Object filename_string;
  register Lisp_Object start, end;
#ifdef MSDOS
  char *tempfile;
#else
  char tempfile[20];
#endif

#endif /* not MSDOS */

  mktemp (tempfile);

  filename_string = build_string (tempfile);
  GCPRO1 (filename_string);
  start = args[0];
  end = args[1];
#ifdef MSDOS
  specbind (Qbuffer_file_type, Vbinary_process_input);
  Fwrite_region (start, end, filename_string, Qnil, Qlambda);

  if (!NILP (args[3]))
    Fdelete_region (start, end);

  args[3] = filename_string;

  RETURN_UNGCPRO (unbind_to (count, Fcall_process (nargs - 2, args + 2)));
}

#ifndef VMS /* VMS version is in vmsproc.c.  */

/* This is the last thing run in a newly forked inferior