summaryrefslogtreecommitdiff
path: root/src/eval.c
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1995-07-25 20:27:48 +0000
committerKarl Heuer <kwzh@gnu.org>1995-07-25 20:27:48 +0000
commit291978386cec59c09d49a6f7c52222a96ed6d065 (patch)
tree455a761ae82a4d7265c5cdb0e8b348e55b0137ac /src/eval.c
parentb2e3d5bbff2a9b1acba0b40f97adfb7cf63fdfb0 (diff)
downloademacs-291978386cec59c09d49a6f7c52222a96ed6d065.tar.gz
(run-hook-with-args): Fix previous code.
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c6
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\
Lisp_Object sym, val;
sym = args[0];
- CHECK_SYMBOL (sym, 0);
- val = XSYMBOL (sym)->value;
- if (BUFFER_LOCAL_VALUEP (val)
- || SOME_BUFFER_LOCAL_VALUEP (val))
- val = swap_in_symval_forwarding (sym, val);
+ val = find_symbol_value (sym);
if (EQ (val, Qunbound) || NILP (val))
return Qnil;
else if (!CONSP (val) || EQ (XCONS (val)->car, Qlambda))