(=ucs@jp): New coded-charset for XEmacs CHISE.

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index b473d0e..7af9a20 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -439,6 +439,15 @@
                  direction     l2r
                  mother        ucs-jis))
   (define-charset-alias '=ucs-jis-2000 '=ucs@jis-2000)
+  (make-charset '=ucs@jp
+               "UCS for Japan"
+               `(long-name     "UCS for common glyphs used in Japan"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =ucs@jis-2000))
   (make-charset '=ucs@ks
                "UCS for KS"
                `(long-name     "ISO/IEC 10646 for Korean Standards"