From: tomo <tomo>
Date: Thu, 18 Nov 1999 10:22:35 +0000 (+0000)
Subject: (Vcharset_japanese_jisx0208_1990): New variable.
X-Git-Tag: r21-2-19-utf-2000-0_13-0~154
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6c3579d1d3d6132c2759bf5fede210eac64c21a1;p=chise%2Fxemacs-chise.git-

(Vcharset_japanese_jisx0208_1990): New variable.
(Fdefine_char): Use Group 00 Plane 10 for non-coded variants of BMP.
(Qjapanese_jisx0208_1990): New variable.
(syms_of_mule_charset): Add new symbol `Qjapanese_jisx0208_1990'.
(complex_vars_of_mule_charset): Add new coded-charset
`japanese-jisx0208-1990'.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 6f89233..1d148f4 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -53,6 +53,7 @@ Lisp_Object Vcharset_latin_iso8859_9;
 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;
@@ -697,6 +698,14 @@ Store character's 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))
@@ -752,6 +761,7 @@ Lisp_Object Qascii,
   Qjapanese_jisx0208_1978,
   Qchinese_gb2312,
   Qjapanese_jisx0208,
+  Qjapanese_jisx0208_1990,
   Qkorean_ksc5601,
   Qjapanese_jisx0212,
   Qchinese_cns11643_1,
@@ -2473,6 +2483,7 @@ syms_of_mule_charset (void)
   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");
@@ -2757,6 +2768,18 @@ complex_vars_of_mule_charset (void)
 		  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',