Mercurial > emacs

changeset 25257:0be923a80096

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(run_hook_list_with_args): Gcpro `globals'. (run_hook_with_args): Likewise.
author Karl Heuer <kwzh@gnu.org>
date Sat, 14 Aug 1999 02:30:27 +0000
parents 631f514ef580
children 8eefac3ecebf
files src/eval.c
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/eval.c	Fri Aug 13 21:24:42 1999 +0000
+++ b/src/eval.c	Sat Aug 14 02:30:27 1999 +0000
@@ -2089,7 +2089,8 @@
      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 @@
     }
   else
     {
-      GCPRO2 (sym, val);
+      globals = Qnil;
+      GCPRO3 (sym, val, globals);
 
       for (;
 	   CONSP (val) && ((cond == to_completion)
@@ -2121,7 +2123,6 @@
 	    {
 	      /* 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 @@
 {
   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 @@
 	{
 	  /* 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);