Mercurial > emacs

changeset 6497:89ff61b53cee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(store_symval_forwarding, Fsymbol_value): Use assignment, not initialization.
author Karl Heuer <kwzh@gnu.org>
date Wed, 23 Mar 1994 22:27:40 +0000
parents e1967b6d9a5c
children 676612edbafe
files src/data.c
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Wed Mar 23 22:27:12 1994 +0000
+++ b/src/data.c	Wed Mar 23 22:27:40 1994 +0000
@@ -668,9 +668,9 @@
     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 @@
   (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