From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 Sep 1996 04:31:38 +0000 (+0000)
Subject: (syms_of_eval): Initialize Vrun_hooks here.
X-Git-Tag: emacs-20.1~3648
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e6e9f0840ab3169f68cd9f5d695ca3ee564853c;p=emacs.git

(syms_of_eval): Initialize Vrun_hooks here.
Don't make it a Lisp variable.
---

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;