# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 806704068 0
# Node ID 14d407b83eb3657948f1bf228bd34767fd037821
# Parent  07ba0f6e9adadcc38b18c060ee877b5857bae806
(run-hook-with-args): Fix previous code.

diff -r 07ba0f6e9ada -r 14d407b83eb3 src/eval.c
--- a/src/eval.c	Tue Jul 25 20:27:07 1995 +0000
+++ b/src/eval.c	Tue Jul 25 20:27:48 1995 +0000
@@ -1836,11 +1836,7 @@
   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))