From: Kenichi Handa <handa@m17n.org>
Date: Thu, 6 Dec 2007 07:26:59 +0000 (+0000)
Subject: (Fdefine_charset_internal): Record a supplementary
X-Git-Tag: emacs-pretest-23.0.90~8295^2~174
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8055c66a5e26e9a999b3eff9b31e66149f3f5b53;p=emacs.git

(Fdefine_charset_internal): Record a supplementary
charset at the tail of Vcharset_order_list.
---

diff --git a/src/charset.c b/src/charset.c
index 299918587fe..9ed6a733223 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -1054,8 +1054,12 @@ usage: (define-charset-internal ...)  */)
   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++;
     }