From 0671d7c0026d360d1bd0b4e88fd6fcbe1b67ff0d Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 23 Mar 1994 22:27:40 +0000 Subject: [PATCH] (store_symval_forwarding, Fsymbol_value): Use assignment, not initialization. --- src/data.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/data.c b/src/data.c index d8f167dcf99..167fc953508 100644 --- a/src/data.c +++ b/src/data.c @@ -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 -- 2.39.5