update.

[chise/xemacs-chise.git-] / src / mule-charset.c

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 8a8d310..ee0ce80 100644 (file)
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -147,12 +147,16 @@ char_byte_table_equal (Lisp_Object obj1, Lisp_Object obj2, int depth)
 
   for (i = 0; i < 256; i++)
     if (CHAR_BYTE_TABLE_P (cte1->property[i]))
-      if (CHAR_BYTE_TABLE_P (cte2->property[i]))
-       if (!char_byte_table_equal (cte1->property[i],
+      {
+       if (CHAR_BYTE_TABLE_P (cte2->property[i]))
+         {
+           if (!char_byte_table_equal (cte1->property[i],
                                        cte2->property[i], depth + 1))
+             return 0;
+         }
+       else
          return 0;
-      else
-       return 0;
+      }
     else
       if (!internal_equal (cte1->property[i], cte2->property[i], depth + 1))
        return 0;
@@ -1061,7 +1065,6 @@ charset_get_byte2 (Lisp_Object charset, Emchar ch)
 }
 
 Lisp_Object Vdefault_coded_charset_priority_list;
-Lisp_Object Vdefault_coded_charset_priority_list_for_font;
 #endif
 
 \f
@@ -1360,10 +1363,12 @@ character set.  Recognized properties are:
       abort ();
     }
   if (final)
-    if (chars == 94)
-      byte_offset = 33;
-    else if (chars == 96)
-      byte_offset = 32;
+    {
+      if (chars == 94)
+       byte_offset = 33;
+      else if (chars == 96)
+       byte_offset = 32;
+    }
 #else
   id = get_unallocated_leading_byte (dimension);
 #endif
@@ -2063,12 +2068,6 @@ Version number of UTF-2000.
               &Vdefault_coded_charset_priority_list /*
 Default order of preferred coded-character-set.
 */ );
-
-  Vdefault_coded_charset_priority_list_for_font = Qnil;
-  DEFVAR_LISP ("default-coded-charset-priority-list-for-font",
-              &Vdefault_coded_charset_priority_list_for_font /*
-Default order of preferred coded-character-set for font.
-*/ );
 #endif
 }
 
@@ -2089,8 +2088,8 @@ complex_vars_of_mule_charset (void)
                  CHARSET_LEFT_TO_RIGHT,
                  build_string ("BMP"),
                  build_string ("BMP"),
-                 build_string ("BMP"),
-                 build_string (""),
+                 build_string ("ISO/IEC 10646 Group 0 Plane 0 (BMP)"),
+                 build_string ("\\(ISO10646.*-1\\|UNICODE[23]?-0\\)"),
                  Qnil, 0, 0xFFFF, 0, 0);
 #else
 # define MIN_CHAR_THAI 0