changeset 12663:14d407b83eb3

(run-hook-with-args): Fix previous code.
author Karl Heuer <kwzh@gnu.org>
date Tue, 25 Jul 1995 20:27:48 +0000
parents 07ba0f6e9ada
children ce1cae301efe
files src/eval.c
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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))