Mercurial > emacs
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 |