From d6c6c8dc15eea18c4df492cd7cf3bda859c64d55 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 18 Oct 2001 16:45:22 +0000 Subject: [PATCH] (Vcharset_ucs_ks): New variable. (Qucs_ks): New variable. (syms_of_mule_charset): Add new symbol `ucs-ks'. (complex_vars_of_mule_charset): Add new coded-charset `ucs-ks'. --- src/mule-charset.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/mule-charset.c b/src/mule-charset.c index 6137cad..be5d4da 100644 --- a/src/mule-charset.c +++ b/src/mule-charset.c @@ -68,6 +68,7 @@ Lisp_Object Vcharset_ucs; Lisp_Object Vcharset_ucs_bmp; Lisp_Object Vcharset_ucs_cns; Lisp_Object Vcharset_ucs_jis; +Lisp_Object Vcharset_ucs_ks; Lisp_Object Vcharset_ucs_big5; Lisp_Object Vcharset_latin_viscii; Lisp_Object Vcharset_latin_tcvn5712; @@ -439,6 +440,7 @@ Lisp_Object Qascii, Qucs_bmp, Qucs_cns, Qucs_jis, + Qucs_ks, Qucs_big5, Qlatin_viscii, Qlatin_tcvn5712, @@ -2381,6 +2383,7 @@ syms_of_mule_charset (void) defsymbol (&Qucs_bmp, "ucs-bmp"); defsymbol (&Qucs_cns, "ucs-cns"); defsymbol (&Qucs_jis, "ucs-jis"); + defsymbol (&Qucs_ks, "ucs-ks"); defsymbol (&Qucs_big5, "ucs-big5"); defsymbol (&Qlatin_viscii, "latin-viscii"); defsymbol (&Qlatin_tcvn5712, "latin-tcvn5712"); @@ -2547,6 +2550,15 @@ complex_vars_of_mule_charset (void) build_string ("ISO/IEC 10646 for JIS X 0208, 0212 and 0213"), build_string (""), Qnil, 0, 0, 0, 0); + staticpro (&Vcharset_ucs_ks); + Vcharset_ucs_ks = + make_charset (LEADING_BYTE_UCS_KS, Qucs_ks, 256, 3, + 1, 2, 0, CHARSET_LEFT_TO_RIGHT, + build_string ("UCS for KS"), + build_string ("UCS for CCS defined by KS"), + build_string ("ISO/IEC 10646 for Korean Standards"), + 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