Lisp_Object Vcharset_japanese_jisx0208_1978;
Lisp_Object Vcharset_chinese_gb2312;
Lisp_Object Vcharset_japanese_jisx0208;
+Lisp_Object Vcharset_japanese_jisx0208_1990;
Lisp_Object Vcharset_korean_ksc5601;
Lisp_Object Vcharset_japanese_jisx0212;
Lisp_Object Vcharset_chinese_cns11643_1;
Lisp_Object Vcharset_latin_viscii;
Lisp_Object Vcharset_latin_viscii_lower;
Lisp_Object Vcharset_latin_viscii_upper;
+Lisp_Object Vcharset_ideograph_daikanwa;
+Lisp_Object Vcharset_mojikyo_pj_1;
+Lisp_Object Vcharset_mojikyo_pj_2;
+Lisp_Object Vcharset_mojikyo_pj_3;
+Lisp_Object Vcharset_mojikyo_pj_4;
+Lisp_Object Vcharset_mojikyo_pj_5;
+Lisp_Object Vcharset_mojikyo_pj_6;
+Lisp_Object Vcharset_mojikyo_pj_7;
+Lisp_Object Vcharset_mojikyo_pj_8;
+Lisp_Object Vcharset_mojikyo_pj_9;
+Lisp_Object Vcharset_mojikyo_pj_10;
+Lisp_Object Vcharset_mojikyo_pj_11;
+Lisp_Object Vcharset_mojikyo_pj_12;
+Lisp_Object Vcharset_mojikyo_pj_13;
+Lisp_Object Vcharset_mojikyo_pj_14;
+Lisp_Object Vcharset_mojikyo_pj_15;
+Lisp_Object Vcharset_mojikyo_pj_16;
+Lisp_Object Vcharset_mojikyo_pj_17;
+Lisp_Object Vcharset_mojikyo_pj_18;
+Lisp_Object Vcharset_mojikyo_pj_19;
+Lisp_Object Vcharset_mojikyo_pj_20;
+Lisp_Object Vcharset_mojikyo_pj_21;
Lisp_Object Vcharset_ethiopic_ucs;
-Lisp_Object Vcharset_hiragana_jisx0208;
-Lisp_Object Vcharset_katakana_jisx0208;
#endif
Lisp_Object Vcharset_chinese_big5_1;
Lisp_Object Vcharset_chinese_big5_2;
Lisp_Object Q_decomposition;
Lisp_Object Q_ucs;
Lisp_Object Qcompat;
+Lisp_Object Qisolated;
+Lisp_Object Qinitial;
+Lisp_Object Qmedial;
+Lisp_Object Qfinal;
+Lisp_Object Qvertical;
Lisp_Object QnoBreak;
Lisp_Object Qfraction;
Lisp_Object Qsuper;
Lisp_Object Qsub;
Lisp_Object Qcircle;
+Lisp_Object Qsquare;
Lisp_Object Qwide;
Lisp_Object Qnarrow;
+Lisp_Object Qsmall;
Lisp_Object Qfont;
Emchar
return XCHAR (v);
else if (EQ (v, Qcompat))
return -1;
- else if (EQ (v, QnoBreak))
+ else if (EQ (v, Qisolated))
return -2;
- else if (EQ (v, Qfraction))
+ else if (EQ (v, Qinitial))
return -3;
- else if (EQ (v, Qsuper))
+ else if (EQ (v, Qmedial))
return -4;
- else if (EQ (v, Qsub))
+ else if (EQ (v, Qfinal))
return -5;
- else if (EQ (v, Qcircle))
+ else if (EQ (v, Qvertical))
return -6;
- else if (EQ (v, Qwide))
+ else if (EQ (v, QnoBreak))
return -7;
- else if (EQ (v, Qnarrow))
+ else if (EQ (v, Qfraction))
return -8;
- else if (EQ (v, Qfont))
+ else if (EQ (v, Qsuper))
return -9;
+ else if (EQ (v, Qsub))
+ return -10;
+ else if (EQ (v, Qcircle))
+ return -11;
+ else if (EQ (v, Qsquare))
+ return -12;
+ else if (EQ (v, Qwide))
+ return -13;
+ else if (EQ (v, Qnarrow))
+ return -14;
+ else if (EQ (v, Qsmall))
+ return -15;
+ else if (EQ (v, Qfont))
+ return -16;
else
signal_simple_error (err_msg, err_arg);
}
*/
(character, attribute))
{
- Lisp_Object ret
- = get_char_code_table (XCHAR (character), Vcharacter_attribute_table);
+ Lisp_Object ret;
Lisp_Object ccs;
+ CHECK_CHAR (character);
+ ret = get_char_code_table (XCHAR (character),
+ Vcharacter_attribute_table);
if (EQ (ret, Qnil))
return Qnil;
{
Lisp_Object ccs;
+ CHECK_CHAR (character);
ccs = Ffind_charset (attribute);
if (!NILP (ccs))
{
Lisp_Object Qucs;
+EXFUN (Fmake_char, 3);
+
DEFUN ("define-char", Fdefine_char, 1, 1, 0, /*
Store character's ATTRIBUTES.
*/
if (!LISTP (cell))
signal_simple_error ("Invalid argument", attributes);
- if (!NILP (ccs = Ffind_charset (Fcar (cell)))
- && XCHARSET_FINAL (ccs))
+ if (!NILP (ccs = Ffind_charset (Fcar (cell))))
{
- Emchar code;
-
- if (XCHARSET_DIMENSION (ccs) == 1)
- {
- Lisp_Object eb1 = Fcar (Fcdr (cell));
- int b1;
-
- if (!INTP (eb1))
- signal_simple_error ("Invalid argument", attributes);
- b1 = XINT (eb1);
- switch (XCHARSET_CHARS (ccs))
- {
- case 94:
- code = MIN_CHAR_94
- + (XCHARSET_FINAL (ccs) - '0') * 94 + (b1 - 33);
- break;
- case 96:
- code = MIN_CHAR_96
- + (XCHARSET_FINAL (ccs) - '0') * 96 + (b1 - 32);
- break;
- default:
- abort ();
- }
- }
- else if (XCHARSET_DIMENSION (ccs) == 2)
- {
- Lisp_Object eb1 = Fcar (Fcdr (cell));
- Lisp_Object eb2 = Fcar (Fcdr (Fcdr (cell)));
- int b1, b2;
-
- if (!INTP (eb1))
- signal_simple_error ("Invalid argument", attributes);
- b1 = XINT (eb1);
- if (!INTP (eb2))
- signal_simple_error ("Invalid argument", attributes);
- b2 = XINT (eb2);
- switch (XCHARSET_CHARS (ccs))
- {
- case 94:
- code = MIN_CHAR_94x94
- + (XCHARSET_FINAL (ccs) - '0') * 94 * 94
- + (b1 - 33) * 94 + (b2 - 33);
- break;
- case 96:
- code = MIN_CHAR_96x96
- + (XCHARSET_FINAL (ccs) - '0') * 96 * 96
- + (b1 - 32) * 96 + (b2 - 32);
- break;
- default:
- abort ();
- }
- }
- else
- {
- rest = Fcdr (rest);
- continue;
- }
- character = make_char (code);
+ cell = Fcdr (cell);
+ character = Fmake_char (ccs, Fcar (cell),
+ Fcar (Fcdr (cell)));
goto setup_attributes;
}
rest = Fcdr (rest);
}
+ if (!NILP (code = Fcdr (Fassq (Q_ucs, attributes))))
+ {
+ if (!INTP (code))
+ signal_simple_error ("Invalid argument", attributes);
+ else
+ character = make_char (XINT (code) + 0x100000);
+ goto setup_attributes;
+ }
return Qnil;
}
else if (!INTP (code))
Qjapanese_jisx0208_1978,
Qchinese_gb2312,
Qjapanese_jisx0208,
+ Qjapanese_jisx0208_1990,
Qkorean_ksc5601,
Qjapanese_jisx0212,
Qchinese_cns11643_1,
Qlatin_viscii_upper,
Qvietnamese_viscii_lower,
Qvietnamese_viscii_upper,
+ Qideograph_daikanwa,
+ Qmojikyo_pj_1,
+ Qmojikyo_pj_2,
+ Qmojikyo_pj_3,
+ Qmojikyo_pj_4,
+ Qmojikyo_pj_5,
+ Qmojikyo_pj_6,
+ Qmojikyo_pj_7,
+ Qmojikyo_pj_8,
+ Qmojikyo_pj_9,
+ Qmojikyo_pj_10,
+ Qmojikyo_pj_11,
+ Qmojikyo_pj_12,
+ Qmojikyo_pj_13,
+ Qmojikyo_pj_14,
+ Qmojikyo_pj_15,
+ Qmojikyo_pj_16,
+ Qmojikyo_pj_17,
+ Qmojikyo_pj_18,
+ Qmojikyo_pj_19,
+ Qmojikyo_pj_20,
+ Qmojikyo_pj_21,
Qethiopic_ucs,
- Qhiragana_jisx0208,
- Qkatakana_jisx0208,
#endif
Qchinese_big5_1,
Qchinese_big5_2,
else
CHARSET_REP_BYTES (cs) = CHARSET_DIMENSION (cs) + 2;
#endif
-
+
if (final)
{
/* some charsets do not have final characters. This includes
make_int ((((c - MIN_CHAR_OBS_94x94) / 94) % 94) + 33),
make_int (((c - MIN_CHAR_OBS_94x94) % 94) + 33));
}
+ else if (c <= MAX_CHAR_DAIKANWA)
+ {
+ return list3 (Vcharset_ideograph_daikanwa,
+ make_int ((c - MIN_CHAR_DAIKANWA) >> 8),
+ make_int ((c - MIN_CHAR_DAIKANWA) & 255));
+ }
else if (c <= MAX_CHAR_94)
{
return list2 (CHARSET_BY_ATTRIBUTES (CHARSET_TYPE_94,
*/
(character))
{
+#ifdef UTF2000
+ Lisp_Object ret;
+ Lisp_Object charset;
+
+ CHECK_CHAR_COERCE_INT (character);
+ ret = SPLIT_CHAR (XCHAR (character));
+ charset = Fcar (ret);
+ if (CHARSETP (charset))
+ return Fcons (XCHARSET_NAME (charset), Fcopy_list (Fcdr (ret)));
+ else
+ return ret;
+#else
/* This function can GC */
struct gcpro gcpro1, gcpro2;
Lisp_Object charset = Qnil;
rc = list2 (XCHARSET_NAME (charset), make_int (c1));
}
UNGCPRO;
-
return rc;
+#endif
}
\f
defsymbol (&Qjapanese_jisx0208_1978, "japanese-jisx0208-1978");
defsymbol (&Qchinese_gb2312, "chinese-gb2312");
defsymbol (&Qjapanese_jisx0208, "japanese-jisx0208");
+ defsymbol (&Qjapanese_jisx0208_1990, "japanese-jisx0208-1990");
defsymbol (&Qkorean_ksc5601, "korean-ksc5601");
defsymbol (&Qjapanese_jisx0212, "japanese-jisx0212");
defsymbol (&Qchinese_cns11643_1, "chinese-cns11643-1");
defsymbol (&Q_ucs, "->ucs");
defsymbol (&Q_decomposition, "->decomposition");
defsymbol (&Qcompat, "compat");
+ defsymbol (&Qisolated, "isolated");
+ defsymbol (&Qinitial, "initial");
+ defsymbol (&Qmedial, "medial");
+ defsymbol (&Qfinal, "final");
+ defsymbol (&Qvertical, "vertical");
defsymbol (&QnoBreak, "noBreak");
defsymbol (&Qfraction, "fraction");
defsymbol (&Qsuper, "super");
defsymbol (&Qsub, "sub");
defsymbol (&Qcircle, "circle");
+ defsymbol (&Qsquare, "square");
defsymbol (&Qwide, "wide");
defsymbol (&Qnarrow, "narrow");
+ defsymbol (&Qsmall, "small");
defsymbol (&Qfont, "font");
defsymbol (&Qucs, "ucs");
defsymbol (&Qucs_bmp, "ucs-bmp");
defsymbol (&Qlatin_viscii_upper, "latin-viscii-upper");
defsymbol (&Qvietnamese_viscii_lower, "vietnamese-viscii-lower");
defsymbol (&Qvietnamese_viscii_upper, "vietnamese-viscii-upper");
+ defsymbol (&Qideograph_daikanwa, "ideograph-daikanwa");
+ defsymbol (&Qmojikyo_pj_1, "mojikyo-pj-1");
+ defsymbol (&Qmojikyo_pj_2, "mojikyo-pj-2");
+ defsymbol (&Qmojikyo_pj_3, "mojikyo-pj-3");
+ defsymbol (&Qmojikyo_pj_4, "mojikyo-pj-4");
+ defsymbol (&Qmojikyo_pj_5, "mojikyo-pj-5");
+ defsymbol (&Qmojikyo_pj_6, "mojikyo-pj-6");
+ defsymbol (&Qmojikyo_pj_7, "mojikyo-pj-7");
+ defsymbol (&Qmojikyo_pj_8, "mojikyo-pj-8");
+ defsymbol (&Qmojikyo_pj_9, "mojikyo-pj-9");
+ defsymbol (&Qmojikyo_pj_10, "mojikyo-pj-10");
+ defsymbol (&Qmojikyo_pj_11, "mojikyo-pj-11");
+ defsymbol (&Qmojikyo_pj_12, "mojikyo-pj-12");
+ defsymbol (&Qmojikyo_pj_13, "mojikyo-pj-13");
+ defsymbol (&Qmojikyo_pj_14, "mojikyo-pj-14");
+ defsymbol (&Qmojikyo_pj_15, "mojikyo-pj-15");
+ defsymbol (&Qmojikyo_pj_16, "mojikyo-pj-16");
+ defsymbol (&Qmojikyo_pj_17, "mojikyo-pj-17");
+ defsymbol (&Qmojikyo_pj_18, "mojikyo-pj-18");
+ defsymbol (&Qmojikyo_pj_19, "mojikyo-pj-19");
+ defsymbol (&Qmojikyo_pj_20, "mojikyo-pj-20");
+ defsymbol (&Qmojikyo_pj_21, "mojikyo-pj-21");
defsymbol (&Qethiopic_ucs, "ethiopic-ucs");
- defsymbol (&Qhiragana_jisx0208, "hiragana-jisx0208");
- defsymbol (&Qkatakana_jisx0208, "katakana-jisx0208");
#endif
defsymbol (&Qchinese_big5_1, "chinese-big5-1");
defsymbol (&Qchinese_big5_2, "chinese-big5-2");
build_string ("JIS X0208:1983 Japanese Kanji"),
build_string ("jisx0208\\.1983"),
Qnil, 0, 0, 0, 33);
+ Vcharset_japanese_jisx0208_1990 =
+ make_charset (LEADING_BYTE_JAPANESE_JISX0208_1990,
+ Qjapanese_jisx0208_1990,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("JISX0208-1990"),
+ build_string ("JIS X0208:1990 (Japanese)"),
+ build_string ("JIS X0208:1990 Japanese Kanji"),
+ build_string ("jisx0208\\.1990"),
+ Qnil,
+ MIN_CHAR_JIS_X0208_1990,
+ MAX_CHAR_JIS_X0208_1990, 0, 33);
Vcharset_korean_ksc5601 =
make_charset (LEADING_BYTE_KOREAN_KSC5601, Qkorean_ksc5601,
CHARSET_TYPE_94X94, 2, 0, 'C',
build_string ("VISCII 1.1 (Vietnamese)"),
build_string ("VISCII1\\.1"),
Qnil, 0, 0, 0, 0);
+ Vcharset_ideograph_daikanwa =
+ make_charset (LEADING_BYTE_DAIKANWA, Qideograph_daikanwa,
+ CHARSET_TYPE_256X256, 2, 2, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Daikanwa"),
+ build_string ("Morohashi's Daikanwa"),
+ build_string ("Daikanwa dictionary by MOROHASHI Tetsuji"),
+ build_string ("Daikanwa"),
+ Qnil, MIN_CHAR_DAIKANWA, MAX_CHAR_DAIKANWA, 0, 0);
+ Vcharset_mojikyo_pj_1 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_1, Qmojikyo_pj_1,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-1"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 1"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 1"),
+ build_string ("jisx0208\\.Mojikyo-1$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_2 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_2, Qmojikyo_pj_2,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-2"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 2"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 2"),
+ build_string ("jisx0208\\.Mojikyo-2$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_3 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_3, Qmojikyo_pj_3,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-3"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 3"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 3"),
+ build_string ("jisx0208\\.Mojikyo-3$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_4 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_4, Qmojikyo_pj_4,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-4"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 4"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 4"),
+ build_string ("jisx0208\\.Mojikyo-4$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_5 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_5, Qmojikyo_pj_5,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-5"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 5"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 5"),
+ build_string ("jisx0208\\.Mojikyo-5$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_6 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_6, Qmojikyo_pj_6,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-6"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 6"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 6"),
+ build_string ("jisx0208\\.Mojikyo-6$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_7 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_7, Qmojikyo_pj_7,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-7"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 7"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 7"),
+ build_string ("jisx0208\\.Mojikyo-7$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_8 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_8, Qmojikyo_pj_8,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-8"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 8"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 8"),
+ build_string ("jisx0208\\.Mojikyo-8$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_9 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_9, Qmojikyo_pj_9,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-9"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 9"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 9"),
+ build_string ("jisx0208\\.Mojikyo-9$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_10 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_10, Qmojikyo_pj_10,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-10"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 10"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 10"),
+ build_string ("jisx0208\\.Mojikyo-10$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_11 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_11, Qmojikyo_pj_11,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-11"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 11"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 11"),
+ build_string ("jisx0208\\.Mojikyo-11$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_12 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_12, Qmojikyo_pj_12,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-12"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 12"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 12"),
+ build_string ("jisx0208\\.Mojikyo-12$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_13 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_13, Qmojikyo_pj_13,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-13"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 13"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 13"),
+ build_string ("jisx0208\\.Mojikyo-13$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_14 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_14, Qmojikyo_pj_14,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-14"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 14"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 14"),
+ build_string ("jisx0208\\.Mojikyo-14$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_15 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_15, Qmojikyo_pj_15,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-15"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 15"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 15"),
+ build_string ("jisx0208\\.Mojikyo-15$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_16 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_16, Qmojikyo_pj_16,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-16"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 16"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 16"),
+ build_string ("jisx0208\\.Mojikyo-16$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_17 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_17, Qmojikyo_pj_17,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-17"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 17"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 17"),
+ build_string ("jisx0208\\.Mojikyo-17$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_18 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_18, Qmojikyo_pj_18,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-18"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 18"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 18"),
+ build_string ("jisx0208\\.Mojikyo-18$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_19 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_19, Qmojikyo_pj_19,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-19"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 19"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 19"),
+ build_string ("jisx0208\\.Mojikyo-19$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_20 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_20, Qmojikyo_pj_20,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-20"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 20"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 20"),
+ build_string ("jisx0208\\.Mojikyo-20$"),
+ Qnil, 0, 0, 0, 33);
+ Vcharset_mojikyo_pj_21 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_21, Qmojikyo_pj_21,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-21"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 21"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 21"),
+ build_string ("jisx0208\\.Mojikyo-21$"),
+ Qnil, 0, 0, 0, 33);
Vcharset_ethiopic_ucs =
make_charset (LEADING_BYTE_ETHIOPIC_UCS, Qethiopic_ucs,
CHARSET_TYPE_256X256, 2, 2, 0,
build_string ("Ethiopic of UCS"),
build_string ("Ethiopic-Unicode"),
Qnil, 0x1200, 0x137F, 0x1200, 0);
- Vcharset_hiragana_jisx0208 =
- make_charset (LEADING_BYTE_HIRAGANA_JISX0208, Qhiragana_jisx0208,
- CHARSET_TYPE_94X94, 2, 0, 'B',
- CHARSET_LEFT_TO_RIGHT,
- build_string ("Hiragana"),
- build_string ("Hiragana of JIS X0208"),
- build_string ("Japanese Hiragana of JIS X0208"),
- build_string ("jisx0208\\.19\\(78\\|83\\|90\\)"),
- Qnil, MIN_CHAR_HIRAGANA, MAX_CHAR_HIRAGANA,
- (0x24 - 33) * 94 + (0x21 - 33), 33);
- Vcharset_katakana_jisx0208 =
- make_charset (LEADING_BYTE_KATAKANA_JISX0208, Qkatakana_jisx0208,
- CHARSET_TYPE_94X94, 2, 0, 'B',
- CHARSET_LEFT_TO_RIGHT,
- build_string ("Katakana"),
- build_string ("Katakana of JIS X0208"),
- build_string ("Japanese Katakana of JIS X0208"),
- build_string ("jisx0208\\.19\\(78\\|83\\|90\\)"),
- Qnil, MIN_CHAR_KATAKANA, MAX_CHAR_KATAKANA,
- (0x25 - 33) * 94 + (0x21 - 33), 33);
#endif
Vcharset_chinese_big5_1 =
make_charset (LEADING_BYTE_CHINESE_BIG5_1, Qchinese_big5_1,
projects / chise / xemacs-chise.git- / blobdiff