(run-hook-with-args): Fix previous code.

[bpt/emacs.git] / src / eval.c

diff --git a/src/eval.c b/src/eval.c
index 00f821a..53f69ab 100644 (file)
--- 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))