From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Sep 1997 06:30:27 +0000 (+0000)
Subject: (Faset): Simplify a statement in the char-table case.
X-Git-Tag: emacs-20.1~197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c8fccc3e532c626bbda47325834f80faa324ba4;p=emacs.git

(Faset): Simplify a statement in the char-table case.
This is to help some compilers.
---

diff --git a/src/data.c b/src/data.c
index 942a4f4bed5..8b970959f9e 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1707,13 +1707,19 @@ IDX starts at 0.")
 	      if (SUB_CHAR_TABLE_P (val))
 		array = val;
 	      else
-		/* VAL is a leaf.  Create a sub char table with the
-		   default value VAL or XCHAR_TABLE (array)->defalt
-		   and look into it.  */
-		array = (XCHAR_TABLE (array)->contents[code[i]]
-			 = make_sub_char_table (NILP (val)
-						? XCHAR_TABLE (array)->defalt
-						: val));
+		{
+		  Lisp_Object temp;
+
+		  /* VAL is a leaf.  Create a sub char table with the
+		     default value VAL or XCHAR_TABLE (array)->defalt
+		     and look into it.  */
+
+		  temp = make_sub_char_table (NILP (val)
+					      ? XCHAR_TABLE (array)->defalt
+					      : val);
+		  XCHAR_TABLE (array)->contents[code[i]] = temp;
+		  array = temp;
+		}
 	    }
 	  XCHAR_TABLE (array)->contents[code[i]] = newelt;
 	}