changeset 8555:f1b1537ed3f6

(Fcall_process_region): gcpro filename_string.
author Karl Heuer <kwzh@gnu.org>
date Wed, 17 Aug 1994 21:44:49 +0000
parents 0b44462dbbc8
children 04a87d0e4a62
files src/callproc.c
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/callproc.c	Wed Aug 17 21:42:40 1994 +0000
+++ b/src/callproc.c	Wed Aug 17 21:44:49 1994 +0000
@@ -486,7 +486,9 @@
      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 @@
   mktemp (tempfile);
 
   filename_string = build_string (tempfile);
+  GCPRO1 (filename_string);
   start = args[0];
   end = args[1];
 #ifdef MSDOS
@@ -536,7 +539,7 @@
 
   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.  */