X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fchar-ucs.h;h=7b68791a667fe5097b61989915008b8f1840ff89;hb=15fd1e6e063e07e811ab9d9e4611682baa4df555;hp=913f7ae73c556050e8ab85e8cc423700fe5a724d;hpb=5837fb9e178bd2ff65666ed6170e6f0382214bdf;p=chise%2Fxemacs-chise.git diff --git a/src/char-ucs.h b/src/char-ucs.h index 913f7ae..7b68791 100644 --- a/src/char-ucs.h +++ b/src/char-ucs.h @@ -88,11 +88,14 @@ typedef short Charset_ID; /* ISO/IEC 10646 for Big5 */ #define LEADING_BYTE_UCS_BIG5 (MIN_LEADING_BYTE + 9) +/* Japanese JIS X0208 Common 2/4 2/{(8),9,10,11} 4/2 (B) */ +#define LEADING_BYTE_JIS_X0208 (MIN_LEADING_BYTE + 10) + /* Japanese JIS X0208-1990 2/4 2/{(8),9,10,11} 4/2 (B) */ -#define LEADING_BYTE_JAPANESE_JISX0208_1990 (MIN_LEADING_BYTE + 10) +#define LEADING_BYTE_JAPANESE_JISX0208_1990 (MIN_LEADING_BYTE + 11) /* Chinese GB 12345-1990 */ -#define LEADING_BYTE_CHINESE_GB12345 (MIN_LEADING_BYTE + 11) +#define LEADING_BYTE_CHINESE_GB12345 (MIN_LEADING_BYTE + 12) #define LEADING_BYTE_CHINESE_BIG5 (MIN_LEADING_BYTE + 20) @@ -701,7 +704,7 @@ MAKE_CHAR (Lisp_Object charset, int c1, int c2) extern Lisp_Object Vcharacter_attribute_table; int encode_builtin_char_1 (Emchar c, Lisp_Object* charset); -int charset_code_point (Lisp_Object charset, Emchar ch); +int charset_code_point (Lisp_Object charset, Emchar ch, int defined_only); int range_charset_code_point (Lisp_Object charset, Emchar ch); extern Lisp_Object Vdefault_coded_charset_priority_list; @@ -718,7 +721,7 @@ encode_char_1 (Emchar ch, Lisp_Object* charset) *charset = Ffind_charset (Fcar (charsets)); if (!NILP (*charset)) { - int code_point = charset_code_point (*charset, ch); + int code_point = charset_code_point (*charset, ch, 0); if (code_point >= 0) return code_point;