(CHAR_STRING): Call char_string if C is greater than

MAX_3_BYTE_CHAR.
(CHAR_STRING_ADVANCE): Likewise.
(STRING_CHAR): Call string_char instead of
string_char_with_unification.
(STRING_CHAR_AND_LENGTH): Likewise.
(STRING_CHAR_ADVANCE): Likewise.

diff --git a/src/character.h b/src/character.h
index b2ddccde542a2ba46b04f3b3169aa3cad7b47387..0d41f5a09823dfb80d4bd76d9f405613576d15b1 100644 (file)
--- a/src/character.h
+++ b/src/character.h
@@ -161,15 +161,11 @@ extern int unibyte_to_multibyte_table[256];
       (p)[1] = (0x80 | (((c) >> 6) & 0x3F)),   \
       (p)[2] = (0x80 | ((c) & 0x3F)),          \
       3)                                       \
-   : (unsigned) (c) <= MAX_5_BYTE_CHAR         \
-   ? char_string_with_unification (c, p)       \
-   : ((p)[0] = (0xC0 | (((c) >> 6) & 0x01)),   \
-      (p)[1] = (0x80 | ((c) & 0x3F)),          \
-      2))
+   : char_string (c, p))
 
-/* Store multibyte form of eight-bit char B in P.  The caller should
-   allocate at least MAX_MULTIBYTE_LENGTH bytes area at P in advance.
-   Returns the length of the multibyte form.  */
+/* Store multibyte form of byte B in P.  The caller should allocate at
+   least MAX_MULTIBYTE_LENGTH bytes area at P in advance.  Returns the
+   length of the multibyte form.  */
 
 #define BYTE8_STRING(b, p)                     \
   ((p)[0] = (0xC0 | (((b) >> 6) & 0x01)),      \
@@ -181,24 +177,22 @@ extern int unibyte_to_multibyte_table[256];
    allocate at least MAX_MULTIBYTE_LENGTH bytes area at P in advance.
    And, advance P to the end of the multibyte form.  */
 
-#define CHAR_STRING_ADVANCE(c, p)                      \
-  do {                                                 \
-    if ((c) <= MAX_1_BYTE_CHAR)                                \
-      *(p)++ = (c);                                    \
-    else if ((c) <= MAX_2_BYTE_CHAR)                   \
-      *(p)++ = (0xC0 | ((c) >> 6)),                    \
-       *(p)++ = (0x80 | ((c) & 0x3F));                 \
-    else if ((c) <= MAX_3_BYTE_CHAR)                   \
-      *(p)++ = (0xE0 | ((c) >> 12)),                   \
-       *(p)++ = (0x80 | (((c) >> 6) & 0x3F)),          \
-       *(p)++ = (0x80 | ((c) & 0x3F));                 \
-    else if ((c) <= MAX_5_BYTE_CHAR)                   \
-      (p) += char_string_with_unification ((c), (p));  \
-    else                                               \
-      *(p)++ = (0xC0 | (((c) >> 6) & 0x01)),           \
-       *(p)++ = (0x80 | ((c) & 0x3F));                 \
+#define CHAR_STRING_ADVANCE(c, p)              \
+  do {                                         \
+    if ((c) <= MAX_1_BYTE_CHAR)                        \
+      *(p)++ = (c);                            \
+    else if ((c) <= MAX_2_BYTE_CHAR)           \
+      *(p)++ = (0xC0 | ((c) >> 6)),            \
+       *(p)++ = (0x80 | ((c) & 0x3F));         \
+    else if ((c) <= MAX_3_BYTE_CHAR)           \
+      *(p)++ = (0xE0 | ((c) >> 12)),           \
+       *(p)++ = (0x80 | (((c) >> 6) & 0x3F)),  \
+       *(p)++ = (0x80 | ((c) & 0x3F));         \
+    else                                       \
+      (p) += char_string ((c), (p));           \
   } while (0)
 
+
 /* Nonzero iff BYTE starts a non-ASCII character in a multibyte
    form.  */
 #define LEADING_CODE_P(byte) (((byte) & 0xC0) == 0xC0)
@@ -290,7 +284,7 @@ extern int unibyte_to_multibyte_table[256];
    ? ((((p)[0] & 0x0F) << 12)                                  \
       | (((p)[1] & 0x3F) << 6)                                 \
       | ((p)[2] & 0x3F))                                       \
-   : string_char_with_unification ((p), NULL, NULL))
+   : string_char ((p), NULL, NULL))
 
 
 /* Like STRING_CHAR but set ACTUAL_LEN to the length of multibyte
@@ -310,7 +304,7 @@ extern int unibyte_to_multibyte_table[256];
       ((((p)[0] & 0x0F) << 12)                                 \
        | (((p)[1] & 0x3F) << 6)                                        \
        | ((p)[2] & 0x3F)))                                     \
-   : string_char_with_unification ((p), NULL, &actual_len))
+   : string_char ((p), NULL, &actual_len))
 
 
 /* Like STRING_CHAR but advacen P to the end of multibyte form.  */
@@ -328,7 +322,7 @@ extern int unibyte_to_multibyte_table[256];
       ((((p)[-3] & 0x0F) << 12)                                        \
        | (((p)[-2] & 0x3F) << 6)                               \
        | ((p)[-1] & 0x3F)))                                    \
-   : string_char_with_unification ((p), &(p), NULL))
+   : string_char ((p), &(p), NULL))
 
 
 /* Fetch the "next" character from Lisp string STRING at byte position
@@ -521,7 +515,8 @@ extern int unibyte_to_multibyte_table[256];
 
 
 #define MAYBE_UNIFY_CHAR(c)                                    \
-  if (CHAR_TABLE_P (Vchar_unify_table))                                \
+  if (c > MAX_UNICODE_CHAR                                     \
+      && CHAR_TABLE_P (Vchar_unify_table))                     \
     {                                                          \
       Lisp_Object val;                                         \
       int unified;                                             \
@@ -563,9 +558,10 @@ extern int unibyte_to_multibyte_table[256];
    ? ASCII_CHAR_WIDTH (c)      \
    : XINT (CHAR_TABLE_REF (Vchar_width_table, c)))
 
-extern int char_string_with_unification P_ ((int, unsigned char *));
-extern int string_char_with_unification P_ ((const unsigned char *,
-                                            const unsigned char **, int *));
+extern int char_resolve_modifier_mask P_ ((int));
+extern int char_string P_ ((int, unsigned char *));
+extern int string_char P_ ((const unsigned char *,
+                           const unsigned char **, int *));
 
 extern int translate_char P_ ((Lisp_Object, int c));
 extern int char_printable_p P_ ((int c));