comparison src/data.c @ 18186:8704dc91a5b3

(Faset): Inherit default value correctly while creating sub char table.
author Kenichi Handa <handa@m17n.org>
date Mon, 09 Jun 1997 13:00:07 +0000
parents a2029aaffb4f
children c372b7e6669b
comparison
equal deleted inserted replaced
18185:d84dde1fad16 18186:8704dc91a5b3
1699 val = XCHAR_TABLE (array)->contents[code[i]]; 1699 val = XCHAR_TABLE (array)->contents[code[i]];
1700 if (SUB_CHAR_TABLE_P (val)) 1700 if (SUB_CHAR_TABLE_P (val))
1701 array = val; 1701 array = val;
1702 else 1702 else
1703 /* VAL is a leaf. Create a sub char table with the 1703 /* VAL is a leaf. Create a sub char table with the
1704 default value VAL here and look into it. */ 1704 default value VAL or XCHAR_TABLE (array)->defalt
1705 and look into it. */
1705 array = (XCHAR_TABLE (array)->contents[code[i]] 1706 array = (XCHAR_TABLE (array)->contents[code[i]]
1706 = make_sub_char_table (val)); 1707 = make_sub_char_table (NILP (val)
1708 ? XCHAR_TABLE (array)->defalt
1709 : val));
1707 } 1710 }
1708 XCHAR_TABLE (array)->contents[code[i]] = newelt; 1711 XCHAR_TABLE (array)->contents[code[i]] = newelt;
1709 } 1712 }
1710 } 1713 }
1711 else 1714 else