# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1114153868 0
# Node ID 76a2f6423902cc9dbbb245eff73c13b7654b0a6b
# Parent  64a1c93f3c3d42b861940843d2dbf450acfc851c
(copy_sub_char_table): Explicitly copy the default value
of the sub-chartable.

diff -r 64a1c93f3c3d -r 76a2f6423902 src/fns.c
--- a/src/fns.c	Fri Apr 22 05:56:58 2005 +0000
+++ b/src/fns.c	Fri Apr 22 07:11:08 2005 +0000
@@ -462,9 +462,10 @@
 copy_sub_char_table (arg)
      Lisp_Object arg;
 {
-  Lisp_Object copy = make_sub_char_table (XCHAR_TABLE (arg)->defalt);
+  Lisp_Object copy = make_sub_char_table (Qnil);
   int i;
 
+  XCHAR_TABLE (copy)->defalt = XCHAR_TABLE (arg)->defalt;
   /* Copy all the contents.  */
   bcopy (XCHAR_TABLE (arg)->contents, XCHAR_TABLE (copy)->contents,
 	 SUB_CHAR_TABLE_ORDINARY_SLOTS * sizeof (Lisp_Object));