Commit 39323a7e authored by Karl Heuer's avatar Karl Heuer
Browse files

(Fcall_process_region): gcpro filename_string.

parent 6bac44b2
......@@ -486,7 +486,9 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
int nargs;
register Lisp_Object *args;
{
register Lisp_Object filename_string, start, end;
struct gcpro gcpro1;
Lisp_Object filename_string;
register Lisp_Object start, end;
#ifdef MSDOS
char *tempfile;
#else
......@@ -519,6 +521,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
mktemp (tempfile);
filename_string = build_string (tempfile);
GCPRO1 (filename_string);
start = args[0];
end = args[1];
#ifdef MSDOS
......@@ -536,7 +539,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
args[3] = filename_string;
return unbind_to (count, Fcall_process (nargs - 2, args + 2));
RETURN_UNGCPRO (unbind_to (count, Fcall_process (nargs - 2, args + 2)));
}
#ifndef VMS /* VMS version is in vmsproc.c. */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment