(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 299918587fe6694e75fba83d8a6ef30af57cbcb7..9ed6a7332238702a666441840154fa5cee3f2761 100644 (file)
--- 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++;
     }