From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 14 Aug 1999 02:30:27 +0000 (+0000)
Subject: (run_hook_list_with_args): Gcpro `globals'.
X-Git-Tag: emacs-pretest-21.0.90~7184
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fada05d6d14fdf4de2d6cc1479aa8584baf225cd;p=emacs.git

(run_hook_list_with_args): Gcpro `globals'.
(run_hook_with_args): Likewise.
---

diff --git a/src/eval.c b/src/eval.c
index 80d45a0060f..735d1ee6f25 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2089,7 +2089,8 @@ run_hook_with_args (nargs, args, cond)
      enum run_hooks_condition cond;
 {
   Lisp_Object sym, val, ret;
-  struct gcpro gcpro1, gcpro2;
+  Lisp_Object globals;
+  struct gcpro gcpro1, gcpro2, gcpro3;
 
   /* If we are dying or still initializing,
      don't do anything--it would probably crash if we tried.  */
@@ -2109,7 +2110,8 @@ run_hook_with_args (nargs, args, cond)
     }
   else
     {
-      GCPRO2 (sym, val);
+      globals = Qnil;
+      GCPRO3 (sym, val, globals);
 
       for (;
 	   CONSP (val) && ((cond == to_completion)
@@ -2121,7 +2123,6 @@ run_hook_with_args (nargs, args, cond)
 	    {
 	      /* t indicates this hook has a local binding;
 		 it means to run the global binding too.  */
-	      Lisp_Object globals;
 
 	      for (globals = Fdefault_value (sym);
 		   CONSP (globals) && ((cond == to_completion)
@@ -2163,10 +2164,12 @@ run_hook_list_with_args (funlist, nargs, args)
 {
   Lisp_Object sym;
   Lisp_Object val;
-  struct gcpro gcpro1, gcpro2;
+  Lisp_Object globals;
+  struct gcpro gcpro1, gcpro2, gcpro3;
 
   sym = args[0];
-  GCPRO2 (sym, val);
+  globals = Qnil;
+  GCPRO3 (sym, val, globals);
 
   for (val = funlist; CONSP (val); val = XCONS (val)->cdr)
     {
@@ -2174,7 +2177,6 @@ run_hook_list_with_args (funlist, nargs, args)
 	{
 	  /* t indicates this hook has a local binding;
 	     it means to run the global binding too.  */
-	  Lisp_Object globals;
 
 	  for (globals = Fdefault_value (sym);
 	       CONSP (globals);