From: tomo <tomo>
Date: Thu, 23 Oct 2008 03:31:30 +0000 (+0000)
Subject: (=ucs@jis/2004): New coded-charset for XEmacs CHISE.
X-Git-Tag: r21-4-21-chise-0_24-6^20~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=658b6a64b220e38a05f69a2b0e365f9eb041aa14;p=chise%2Fxemacs-chise.git-

(=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
--- 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"