# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 873348952 0
# Node ID bed06df9cbc5df6a4d20684eb621c78642286430
# Parent  2ee3950b5a352f3b8ad45b3cd684cbf1dea9da59
(setup_coding_system, Ffind_operation_coding_system)
(Fdetect_coding_region, Fread_coding_system):
Don't initialize a Lisp_Object.

diff -r 2ee3950b5a35 -r bed06df9cbc5 src/coding.c
--- a/src/coding.c	Thu Sep 04 04:49:53 1997 +0000
+++ b/src/coding.c	Thu Sep 04 04:55:52 1997 +0000
@@ -2384,10 +2384,12 @@
     case 2:
       coding->type = coding_type_iso2022;
       {
-	Lisp_Object val = XVECTOR (coding_system)->contents[4];
+	Lisp_Object val;
 	Lisp_Object *flags;
 	int i, charset, default_reg_bits = 0;
 
+	val = XVECTOR (coding_system)->contents[4];
+
 	if (!VECTORP (val) || XVECTOR (val)->size != 32)
 	  goto label_invalid_coding_system;
 
@@ -3114,8 +3116,9 @@
   (prompt)
      Lisp_Object prompt;
 {
-  Lisp_Object val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p,
-				      Qt, Qnil, Qnil, Qnil, Qnil);
+  Lisp_Object val;
+  val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p,
+			  Qt, Qnil, Qnil, Qnil, Qnil);
   return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil));
 }
 
@@ -3161,7 +3164,8 @@
       if (eol_type != CODING_EOL_UNDECIDED
 	  && eol_type != CODING_EOL_INCONSISTENT)
 	{
-	  Lisp_Object val2 = Fget (Qundecided, Qeol_type);
+	  Lisp_Object val2;
+	  val2 = Fget (Qundecided, Qeol_type);
 	  if (VECTORP (val2))
 	    val = XVECTOR (val2)->contents[eol_type];
 	}
@@ -3206,7 +3210,8 @@
 	    val = Fcons (XCONS (val2)->car, val);
 	  else
 	    {
-	      Lisp_Object val3 = Fget (XCONS (val2)->car, Qeol_type);
+	      Lisp_Object val3;
+	      val3 = Fget (XCONS (val2)->car, Qeol_type);
 	      if (VECTORP (val3))
 		val = Fcons (XVECTOR (val3)->contents[eol_type], val);
 	      else
@@ -3768,7 +3773,8 @@
 
   for (; CONSP (chain); chain = XCONS (chain)->cdr)
     {
-      Lisp_Object elt = XCONS (chain)->car;
+      Lisp_Object elt;
+      elt = XCONS (chain)->car;
 
       if (CONSP (elt)
 	  && ((STRINGP (target)