diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-09-23 04:31:38 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-09-23 04:31:38 +0000 |
commit | 7e925f77b74a6d42b4b919f8ca39109e3836f61c (patch) | |
tree | 5aa379efdee1d1cd022845d9688ef11a98791083 | |
parent | 9a95c0ad1f6520241d9a16a206ab355fa883697c (diff) | |
download | emacs-7e925f77b74a6d42b4b919f8ca39109e3836f61c.tar.gz |
(syms_of_eval): Initialize Vrun_hooks here.
Don't make it a Lisp variable.
-rw-r--r-- | src/eval.c | 8 |
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; |