# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1196926019 0
# Node ID f93f0b835e32a3b75d764848f117e7820ee6ac93
# Parent  bcad98389aeb0e069a75019fe9967edab39f711c
(Fdefine_charset_internal): Record a supplementary
charset at the tail of Vcharset_order_list.

diff -r bcad98389aeb -r f93f0b835e32 src/charset.c
--- a/src/charset.c	Thu Dec 06 07:25:56 2007 +0000
+++ b/src/charset.c	Thu Dec 06 07:26:59 2007 +0000
@@ -1054,8 +1054,12 @@
   if (new_definition_p)
     {
       Vcharset_list = Fcons (args[charset_arg_name], Vcharset_list);
-      Vcharset_ordered_list = nconc2 (Vcharset_ordered_list,
-				      Fcons (make_number (id), Qnil));
+      if (charset.supplementary_p)
+	Vcharset_ordered_list = nconc2 (Vcharset_ordered_list,
+					Fcons (make_number (id), Qnil));
+      else
+	Vcharset_ordered_list = Fcons (make_number (id),
+				       Vcharset_ordered_list);
       charset_ordered_list_tick++;
     }