mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-20 19:42:53 -08:00
Code Issues Projects Releases Wiki Activity

(store_symval_forwarding, Fsymbol_value): Use assignment, not initialization.

Browse source
This commit is contained in:
Karl Heuer 1994-03-23 22:27:40 +00:00
parent e7aacab75f
commit 0671d7c002
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/data.c
View file

@ -668,9 +668,9 @@ store_symval_forwarding (sym, valcontents, newval)
case Lisp_Buffer_Objfwd:
{
unsigned int offset = XUINT (valcontents);
Lisp_Object type =
*(Lisp_Object *)(offset + (char *)&buffer_local_types);
Lisp_Object type;
type = *(Lisp_Object *)(offset + (char *)&buffer_local_types);
if (! NILP (type) && ! NILP (newval)
&& XTYPE (newval) != XINT (type))
buffer_slot_type_mismatch (valcontents, newval);
@ -786,8 +786,9 @@ DEFUN ("symbol-value", Fsymbol_value, Ssymbol_value, 1, 1, 0,
(sym)
Lisp_Object sym;
{
Lisp_Object val = find_symbol_value (sym);
Lisp_Object val;
val = find_symbol_value (sym);
if (EQ (val, Qunbound))
return Fsignal (Qvoid_variable, Fcons (sym, Qnil));
else