From 3c8fccc3e532c626bbda47325834f80faa324ba4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 4 Sep 1997 06:30:27 +0000 Subject: [PATCH] (Faset): Simplify a statement in the char-table case. This is to help some compilers. --- src/data.c | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) 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; } -- 2.39.2