Commit 3c8fccc3 authored by Richard M. Stallman's avatar Richard M. Stallman

(Faset): Simplify a statement in the char-table case.

This is to help some compilers.
parent bb0115a2
......@@ -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;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment