aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman1996-09-23 04:31:38 +0000
committerRichard M. Stallman1996-09-23 04:31:38 +0000
commit6e6e9f0840ab3169f68cd9f5d695ca3ee564853c (patch)
tree84324952b66f68a4ef50ddfb5acbe77825119f17 /src
parent97a74ef613a91d7ab0d866d8892d6262a9b77eb2 (diff)
downloademacs-6e6e9f0840ab3169f68cd9f5d695ca3ee564853c.tar.gz
emacs-6e6e9f0840ab3169f68cd9f5d695ca3ee564853c.zip
(syms_of_eval): Initialize Vrun_hooks here.
Don't make it a Lisp variable.
Diffstat (limited to 'src')
-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;
90Lisp_Object Qand_rest, Qand_optional; 90Lisp_Object Qand_rest, Qand_optional;
91Lisp_Object Qdebug_on_error; 91Lisp_Object Qdebug_on_error;
92 92
93/* This holds either the symbol `run-hooks' or nil.
94 It is nil at an early stage of startup, and when Emacs
95 is shutting down. */
93Lisp_Object Vrun_hooks; 96Lisp_Object Vrun_hooks;
94 97
95/* Non-nil means record all fset's and provide's, to be undone 98/* 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.");
2926 "While in a mocklisp function, the list of its unevaluated args."); 2929 "While in a mocklisp function, the list of its unevaluated args.");
2927 Vmocklisp_arguments = Qt; 2930 Vmocklisp_arguments = Qt;
2928 2931
2929 DEFVAR_LISP ("run-hooks", &Vrun_hooks, 2932 Vrun_hooks = intern ("run-hooks");
2930 "Set to the function `run-hooks', if that function has been defined.\n\ 2933 staticpro (&Vrun_hooks);
2931Otherwise, nil (in a bare Emacs without preloaded Lisp code).");
2932 2934
2933 staticpro (&Vautoload_queue); 2935 staticpro (&Vautoload_queue);
2934 Vautoload_queue = Qnil; 2936 Vautoload_queue = Qnil;