From 9a59bd6dcd5dec8f89a228ec63958c245e881166 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 15 Aug 2001 07:39:23 +0000 Subject: [PATCH] (Vcharset_ucs_jis): New variable. (Qucs_jis): Likewise. (syms_of_mule_charset): Add new symbol `ucs-jis'. (complex_vars_of_mule_charset): Add new coded-charset `ucs-jis'. --- src/mule-charset.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/mule-charset.c b/src/mule-charset.c index a72788d..ba17940 100644 --- a/src/mule-charset.c +++ b/src/mule-charset.c @@ -67,6 +67,7 @@ Lisp_Object Vcharset_chinese_cns11643_2; Lisp_Object Vcharset_ucs; Lisp_Object Vcharset_ucs_bmp; Lisp_Object Vcharset_ucs_cns; +Lisp_Object Vcharset_ucs_jis; Lisp_Object Vcharset_ucs_big5; Lisp_Object Vcharset_latin_viscii; Lisp_Object Vcharset_latin_tcvn5712; @@ -1823,6 +1824,7 @@ Lisp_Object Qascii, #ifdef UTF2000 Qucs_bmp, Qucs_cns, + Qucs_jis, Qucs_big5, Qlatin_viscii, Qlatin_tcvn5712, @@ -3761,6 +3763,7 @@ syms_of_mule_charset (void) defsymbol (&Qucs, "ucs"); defsymbol (&Qucs_bmp, "ucs-bmp"); defsymbol (&Qucs_cns, "ucs-cns"); + defsymbol (&Qucs_jis, "ucs-jis"); defsymbol (&Qucs_big5, "ucs-big5"); defsymbol (&Qlatin_viscii, "latin-viscii"); defsymbol (&Qlatin_tcvn5712, "latin-tcvn5712"); @@ -3919,6 +3922,15 @@ complex_vars_of_mule_charset (void) build_string ("ISO/IEC 10646 for CNS 11643"), build_string (""), Qnil, 0, 0, 0, 0); + staticpro (&Vcharset_ucs_jis); + Vcharset_ucs_jis = + make_charset (LEADING_BYTE_UCS_JIS, Qucs_jis, 256, 3, + 1, 2, 0, CHARSET_LEFT_TO_RIGHT, + build_string ("UCS for JIS"), + build_string ("UCS for JIS X 0208, 0212 and 0213"), + build_string ("ISO/IEC 10646 for JIS X 0208, 0212 and 0213"), + build_string (""), + Qnil, 0, 0, 0, 0); staticpro (&Vcharset_ucs_big5); Vcharset_ucs_big5 = make_charset (LEADING_BYTE_UCS_BIG5, Qucs_big5, 256, 3, -- 1.7.10.4