diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-09-04 06:30:27 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-09-04 06:30:27 +0000 |
commit | 3c8fccc3e532c626bbda47325834f80faa324ba4 (patch) | |
tree | 1e77f43f77db9e32a570e2712bf0496e229e50a1 /src/data.c | |
parent | bb0115a22ef96629341ae2d2b5be73ec4f777ecb (diff) |
(Faset): Simplify a statement in the char-table case.
This is to help some compilers.
Diffstat (limited to 'src/data.c')
-rw-r--r-- | src/data.c | 20 |
1 files 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; } |