From b5c7dbe655f5d2f00ea53a6c1fcfb9e5bd740fb3 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 22 Jul 2002 06:30:30 +0000 Subject: [PATCH] (TRAILING_CODE_P): New macro. (MAYBE_UNIFY_CHAR): Adjusted for the change of Funify_charset. (string_char_with_unification): Fix prototype. (Vscript_alist): Extern it. --- src/character.h | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/src/character.h b/src/character.h index 969a3e801db..54151cb7171 100644 --- a/src/character.h +++ b/src/character.h @@ -157,6 +157,10 @@ Boston, MA 02111-1307, USA. */ form. */ #define LEADING_CODE_P(byte) (((byte) & 0xC0) == 0xC0) +/* Nonzero iff BYTE is a trailing code of a non-ASCII character in a + multibyte form. */ +#define TRAILING_CODE_P(byte) (((byte) & 0xC0) == 0x80) + /* Nonzero iff BYTE starts a character in a multibyte form. This is equivalent to: (ASCII_BYTE_P (byte) || LEADING_CODE_P (byte)) */ @@ -459,7 +463,7 @@ Boston, MA 02111-1307, USA. */ { \ if (SYMBOLP (val)) \ { \ - Funify_charset (val, Qnil); \ + Funify_charset (val, Qnil, Qnil); \ val = CHAR_TABLE_REF (Vchar_unify_table, c); \ } \ if ((unified = XINT (val)) >= 0) \ @@ -492,8 +496,8 @@ Boston, MA 02111-1307, USA. */ : 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_ ((unsigned char *, - unsigned char **, int *)); +extern int string_char_with_unification 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)); @@ -523,6 +527,8 @@ extern Lisp_Object string_escape_byte8 P_ ((Lisp_Object)); /* A char-table for characters which may invoke auto-filling. */ extern Lisp_Object Vauto_fill_chars; +extern Lisp_Object Vscript_alist; + /* Copy LEN bytes from FROM to TO. This macro should be used only when a caller knows that LEN is short and the obvious copy loop is faster than calling bcopy which has some overhead. Copying a -- 2.39.2