(run_hook_list_with_args): Gcpro `globals'.

(run_hook_with_args): Likewise.

diff --git a/src/eval.c b/src/eval.c
index 80d45a0060fc290e4edb25a20b8b3cac83ca6cae..735d1ee6f2587c5265c309050d5a4e8f5089de65 100644 (file)
--- 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);