summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-09-23 04:31:38 +0000
committerRichard M. Stallman <rms@gnu.org>1996-09-23 04:31:38 +0000
commit7e925f77b74a6d42b4b919f8ca39109e3836f61c (patch)
tree5aa379efdee1d1cd022845d9688ef11a98791083
parent9a95c0ad1f6520241d9a16a206ab355fa883697c (diff)
downloademacs-7e925f77b74a6d42b4b919f8ca39109e3836f61c.tar.gz
(syms_of_eval): Initialize Vrun_hooks here.
Don't make it a Lisp variable.
-rw-r--r--src/eval.c8
1 files changed, 5 insertions, 3 deletions
diff --git a/src/eval.c b/src/eval.c
index 535c377965b..4f66f44fb40 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -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
@@ -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;