# HG changeset patch # User Kenichi Handa # Date 1114153881 0 # Node ID e3221787f899cefdb9ed25478d64bc1a31dbc428 # Parent 76a2f6423902cc9dbbb245eff73c13b7654b0a6b *** empty log message *** diff -r 76a2f6423902 -r e3221787f899 src/ChangeLog --- a/src/ChangeLog Fri Apr 22 07:11:08 2005 +0000 +++ b/src/ChangeLog Fri Apr 22 07:11:21 2005 +0000 @@ -1,3 +1,11 @@ +2005-04-22 Kenichi Handa + + * fns.c (copy_sub_char_table): Explicitly copy the default value + of the sub-chartable. + + * fontset.c (fontset_set): When a sub-chartable is created, + explicitly sets the defalt value. + 2005-04-22 Kim F. Storm * fns.c (Fplist_get): Replace by Fsafe_plist_get. diff -r 76a2f6423902 -r e3221787f899 src/fontset.c --- a/src/fontset.c Fri Apr 22 07:11:08 2005 +0000 +++ b/src/fontset.c Fri Apr 22 07:11:21 2005 +0000 @@ -353,7 +353,11 @@ for (i = 0; code[i] > 0; i++) { if (!SUB_CHAR_TABLE_P (*elt)) - *elt = make_sub_char_table (*elt); + { + Lisp_Object val = *elt; + *elt = make_sub_char_table (val); + XCHAR_TABLE (*elt)->defalt = val; + } elt = &XCHAR_TABLE (*elt)->contents[code[i]]; } if (SUB_CHAR_TABLE_P (*elt))