Skip to content

Commit

Permalink
(syms_of_eval): Initialize Vrun_hooks here.
Browse files Browse the repository at this point in the history
Don't make it a Lisp variable.
  • Loading branch information
Richard M. Stallman committed Sep 23, 1996
1 parent 9a95c0a commit 7e925f7
Showing 1 changed file with 5 additions and 3 deletions.
8 changes: 5 additions & 3 deletions src/eval.c
Expand Up @@ -90,6 +90,9 @@ Lisp_Object Qmocklisp_arguments, Vmocklisp_arguments, Qmocklisp;
Lisp_Object Qand_rest, Qand_optional;
Lisp_Object Qdebug_on_error;

/* This holds either the symbol `run-hooks' or nil.
It is nil at an early stage of startup, and when Emacs
is shutting down. */
Lisp_Object Vrun_hooks;

/* Non-nil means record all fset's and provide's, to be undone
Expand Down Expand Up @@ -2926,9 +2929,8 @@ If due to `eval' entry, one arg, t.");
"While in a mocklisp function, the list of its unevaluated args.");
Vmocklisp_arguments = Qt;

DEFVAR_LISP ("run-hooks", &Vrun_hooks,
"Set to the function `run-hooks', if that function has been defined.\n\
Otherwise, nil (in a bare Emacs without preloaded Lisp code).");
Vrun_hooks = intern ("run-hooks");
staticpro (&Vrun_hooks);

staticpro (&Vautoload_queue);
Vautoload_queue = Qnil;
Expand Down

0 comments on commit 7e925f7

Please sign in to comment.