diff options
| author | Richard M. Stallman | 1994-04-12 06:26:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-12 06:26:29 +0000 |
| commit | d0f7cdc847f9b59dc928b042299a2617c6b3d095 (patch) | |
| tree | 710259ea96a48d39554f65d612aabb7f6c6a8cd0 /src/eval.c | |
| parent | a782f0d57f9e71e984f042a6dd2545a3393b3d71 (diff) | |
| download | emacs-d0f7cdc847f9b59dc928b042299a2617c6b3d095.tar.gz emacs-d0f7cdc847f9b59dc928b042299a2617c6b3d095.zip | |
(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) | |||
| 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); |