From: tomo <tomo>
Date: Fri, 7 Feb 2003 04:15:41 +0000 (+0000)
Subject: (=ucs-jis-1990): New coded-charset for UTF-2000.
X-Git-Tag: r21-4-10-utf-2000-0_20-5~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0f0b12a2a6f75aa48ab02b54bc1ca9387b2ee8d6;p=chise%2Fxemacs-chise.git-

(=ucs-jis-1990): New coded-charset for UTF-2000.
(=ucs-jis-2000): New coded-charset for UTF-2000.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 99af0a7..a569714 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -125,6 +125,28 @@
 
 (when (featurep 'utf-2000)
   (make-charset
+   '=ucs-jis-1990
+   "UCS for JIS:1990"
+   `(long-name "ISO/IEC 10646 for JIS X 0208/0212:1990"
+	       chars 256
+	       dimension 3
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       mother ucs-jis))
+  (make-charset
+   '=ucs-jis-2000
+   "UCS for JIS:2000"
+   `(long-name "ISO/IEC 10646 for JIS X 0213:2000"
+	       chars 256
+	       dimension 3
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       mother ucs-jis))
+  (define-charset-alias 'ucs-jis-1990 '=ucs-jis-1990)
+  (define-charset-alias 'ucs-jis-2000 '=ucs-jis-2000)
+  (make-charset
    'chinese-big5-pua
    "Big5-PUA"
    `(long-name "Big5 with private used area"