procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fcall_process_region): gcpro filename_string.

Browse source
This commit is contained in:
Karl Heuer 1994-08-17 21:44:49 +00:00
parent 6bac44b29c
commit 39323a7e46
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/callproc.c
View file

@ -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. */