diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/eval.c | 3 |
1 files changed, 1 insertions, 2 deletions
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) | |||
| 2263 | grow_specpdl (); | 2263 | grow_specpdl (); |
| 2264 | specpdl_ptr->symbol = symbol; | 2264 | specpdl_ptr->symbol = symbol; |
| 2265 | specpdl_ptr->func = 0; | 2265 | specpdl_ptr->func = 0; |
| 2266 | ovalue = XSYMBOL (symbol)->value; | 2266 | specpdl_ptr->old_value = ovalue = find_symbol_value (symbol); |
| 2267 | specpdl_ptr->old_value = EQ (ovalue, Qunbound) ? Qunbound : Fsymbol_value (symbol); | ||
| 2268 | specpdl_ptr++; | 2267 | specpdl_ptr++; |
| 2269 | if (XTYPE (ovalue) == Lisp_Buffer_Objfwd) | 2268 | if (XTYPE (ovalue) == Lisp_Buffer_Objfwd) |
| 2270 | store_symval_forwarding (symbol, ovalue, value); | 2269 | store_symval_forwarding (symbol, ovalue, value); |