diff options
| author | Karl Heuer | 1995-07-25 20:27:48 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-07-25 20:27:48 +0000 |
| commit | aa681b5110cfd06704ac809714f2516a8a97c992 (patch) | |
| tree | 979a07d7ed1f0a7bb62575eb25044c7aff430939 /src/eval.c | |
| parent | d4ec0200803c5e90502e55e4e1c71b93f296c992 (diff) | |
| download | emacs-aa681b5110cfd06704ac809714f2516a8a97c992.tar.gz emacs-aa681b5110cfd06704ac809714f2516a8a97c992.zip | |
(run-hook-with-args): Fix previous code.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/eval.c b/src/eval.c index 00f821a085a..53f69ab15e4 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1836,11 +1836,7 @@ To make a hook variable buffer-local, use `make-local-hook', not\n\ | |||
| 1836 | Lisp_Object sym, val; | 1836 | Lisp_Object sym, val; |
| 1837 | 1837 | ||
| 1838 | sym = args[0]; | 1838 | sym = args[0]; |
| 1839 | CHECK_SYMBOL (sym, 0); | 1839 | val = find_symbol_value (sym); |
| 1840 | val = XSYMBOL (sym)->value; | ||
| 1841 | if (BUFFER_LOCAL_VALUEP (val) | ||
| 1842 | || SOME_BUFFER_LOCAL_VALUEP (val)) | ||
| 1843 | val = swap_in_symval_forwarding (sym, val); | ||
| 1844 | if (EQ (val, Qunbound) || NILP (val)) | 1840 | if (EQ (val, Qunbound) || NILP (val)) |
| 1845 | return Qnil; | 1841 | return Qnil; |
| 1846 | else if (!CONSP (val) || EQ (XCONS (val)->car, Qlambda)) | 1842 | else if (!CONSP (val) || EQ (XCONS (val)->car, Qlambda)) |