summaryrefslogtreecommitdiff
path: root/src/data.c
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>1997-06-09 13:00:07 +0000
committerKenichi Handa <handa@m17n.org>1997-06-09 13:00:07 +0000
commitc8823c61e4a5c9f0e175474a1d9c91aabdfdeeab (patch)
treee075c3a971c3d5d6d10e3571b16b75618c6972a8 /src/data.c
parent115af12793ece3bb37b83a2564444898ba4dc2ce (diff)
downloademacs-c8823c61e4a5c9f0e175474a1d9c91aabdfdeeab.tar.gz
(Faset): Inherit default value correctly while creating
sub char table.
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c
index 9a0788ae719..5fb57407cba 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1701,9 +1701,12 @@ IDX starts at 0.")
array = val;
else
/* VAL is a leaf. Create a sub char table with the
- default value VAL here and look into it. */
+ default value VAL or XCHAR_TABLE (array)->defalt
+ and look into it. */
array = (XCHAR_TABLE (array)->contents[code[i]]
- = make_sub_char_table (val));
+ = make_sub_char_table (NILP (val)
+ ? XCHAR_TABLE (array)->defalt
+ : val));
}
XCHAR_TABLE (array)->contents[code[i]] = newelt;
}