Mercurial > emacs
comparison src/eval.c @ 8980:e641b60610a1
(init_eval_once): Init Vrun_hooks here.
(syms_of_eval): Not here.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Sep 1994 23:19:26 +0000 |
| parents | 80ac0db9a77a |
| children | e7ab930bb7eb |
comparison
equal
deleted
inserted
replaced
| 8979:fdc863ceba78 | 8980:e641b60610a1 |
|---|---|
| 150 { | 150 { |
| 151 specpdl_size = 50; | 151 specpdl_size = 50; |
| 152 specpdl = (struct specbinding *) xmalloc (specpdl_size * sizeof (struct specbinding)); | 152 specpdl = (struct specbinding *) xmalloc (specpdl_size * sizeof (struct specbinding)); |
| 153 max_specpdl_size = 600; | 153 max_specpdl_size = 600; |
| 154 max_lisp_eval_depth = 200; | 154 max_lisp_eval_depth = 200; |
| 155 | |
| 156 Vrun_hooks = Qnil; | |
| 155 } | 157 } |
| 156 | 158 |
| 157 init_eval () | 159 init_eval () |
| 158 { | 160 { |
| 159 specpdl_ptr = specpdl; | 161 specpdl_ptr = specpdl; |
| 2577 Vmocklisp_arguments = Qt; | 2579 Vmocklisp_arguments = Qt; |
| 2578 | 2580 |
| 2579 DEFVAR_LISP ("run-hooks", &Vrun_hooks, | 2581 DEFVAR_LISP ("run-hooks", &Vrun_hooks, |
| 2580 "Set to the function `run-hooks', if that function has been defined.\n\ | 2582 "Set to the function `run-hooks', if that function has been defined.\n\ |
| 2581 Otherwise, nil (in a bare Emacs without preloaded Lisp code)."); | 2583 Otherwise, nil (in a bare Emacs without preloaded Lisp code)."); |
| 2582 Vrun_hooks = Qnil; | |
| 2583 | 2584 |
| 2584 staticpro (&Vautoload_queue); | 2585 staticpro (&Vautoload_queue); |
| 2585 Vautoload_queue = Qnil; | 2586 Vautoload_queue = Qnil; |
| 2586 | 2587 |
| 2587 defsubr (&Sor); | 2588 defsubr (&Sor); |