Mercurial > emacs

comparison src/eval.c @ 6826:903d03ddf99c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(specbind): Use find_symbol_value.
author Richard M. Stallman <rms@gnu.org>
date Tue, 12 Apr 1994 06:26:29 +0000
parents 656d16ca0419
children c3af68680a33
comparison
equal deleted inserted replaced
6825:f70a517ae9e2 6826:903d03ddf99c
2261 2261
2262 if (specpdl_ptr == specpdl + specpdl_size) 2262 if (specpdl_ptr == specpdl + specpdl_size)
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);
2271 else 2270 else
2272 Fset (symbol, value); 2271 Fset (symbol, value);