From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 17 Aug 1994 21:44:49 +0000 (+0000)
Subject: (Fcall_process_region): gcpro filename_string.
X-Git-Tag: emacs-19.34~7298
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39323a7e46cc32c12327c8870639dfb41ac0284b;p=emacs.git

(Fcall_process_region): gcpro filename_string.
---

diff --git a/src/callproc.c b/src/callproc.c
index 4f66b5afc4a..990a48c4db9 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -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.  */