From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 12 Apr 1994 06:26:29 +0000 (+0000)
Subject: (specbind): Use find_symbol_value.
X-Git-Tag: emacs-19.34~9027
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0f7cdc847f9b59dc928b042299a2617c6b3d095;p=emacs.git

(specbind): Use find_symbol_value.
---

diff --git a/src/eval.c b/src/eval.c
index fa67a453f30..254913727bc 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2263,8 +2263,7 @@ specbind (symbol, value)
     grow_specpdl ();
   specpdl_ptr->symbol = symbol;
   specpdl_ptr->func = 0;
-  ovalue = XSYMBOL (symbol)->value;
-  specpdl_ptr->old_value = EQ (ovalue, Qunbound) ? Qunbound : Fsymbol_value (symbol);
+  specpdl_ptr->old_value = ovalue = find_symbol_value (symbol);
   specpdl_ptr++;
   if (XTYPE (ovalue) == Lisp_Buffer_Objfwd)
     store_symval_forwarding (symbol, ovalue, value);