(=ucs@jis/2004): New coded-charset for XEmacs CHISE.

(=ucs@JP): Use `=ucs@jis/2004' instead of `=ucs@jis' as the mother.

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 9ac3e73..870914b 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -703,6 +703,15 @@
                  mother        ucs-jis))
   (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
   (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
+  (make-charset '=ucs@jis/2004
+               "ISO/IEC 10646 for JIS X 0213:2004"
+               '(long-name     "UCS for JIS:2004"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        ucs-jis))
   (make-charset '=ucs@JP
                "UCS for common glyphs used in Japan"
                '(long-name     "UCS for Japan"
@@ -711,7 +720,7 @@
                  columns       2
                  graphic       2
                  direction     l2r
-                 mother        =ucs@jis/2000))
+                 mother        =ucs@jis/2004))
   (define-charset-alias '=ucs@jp '=ucs@JP)
   (make-charset '=ucs@ks
                "ISO/IEC 10646 for Korean Standards"