(specbind): Use find_symbol_value.

1994-04-12 06:26:29 +00:00
parent a782f0d57f
commit d0f7cdc847
1 changed files with 1 additions and 2 deletions
--- 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);