From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 23 Mar 1994 22:27:40 +0000 (+0000)
Subject: (store_symval_forwarding, Fsymbol_value): Use assignment, not initialization.
X-Git-Tag: emacs-19.34~9355
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0671d7c0026d360d1bd0b4e88fd6fcbe1b67ff0d;p=emacs.git

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

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