From: tomo <tomo>
Date: Mon, 11 Oct 1999 09:45:18 +0000 (+0000)
Subject: (char_byte_table_equal): Fill braces to avoid ambiguous `else'.
X-Git-Tag: r21-2-19-utf-2000-0_9-0~14
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d4fd14df47400ce4a63d921ec1a4c9de649622dc;p=chise%2Fxemacs-chise.git

(char_byte_table_equal): Fill braces to avoid ambiguous `else'.
(Fmake_charset): Likewise.
(complex_vars_of_mule_charset): Modify the font registry of `ucs-bmp'
not to match `Ethiopic-Unicode'.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 52c1291..ee0ce80 100644
--- 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;
@@ -1359,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
@@ -2082,8 +2088,8 @@ complex_vars_of_mule_charset (void)
 		  CHARSET_LEFT_TO_RIGHT,
 		  build_string ("BMP"),
 		  build_string ("BMP"),
-		  build_string ("BMP"),
-		  build_string ("\\(ISO10646.*-1\\|UNICODE[23]?\\)"),
+		  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