diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-12 06:26:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-12 06:26:29 +0000 |
| commit | 768fe38e579559a9f0cb37f36e45a2704496b27c (patch) | |
| tree | 5e78490fc6809818cf72d50c76d7a3563afe1e9f /src/eval.c | |
| parent | b64467aac6729245a0ba980b61a4ff9b11e53038 (diff) | |
| download | emacs-768fe38e579559a9f0cb37f36e45a2704496b27c.tar.gz | |
(specbind): Use find_symbol_value.
Diffstat (limited to 'src/eval.c')
| -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) 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); |