From 658b6a64b220e38a05f69a2b0e365f9eb041aa14 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 23 Oct 2008 03:31:30 +0000
Subject: [PATCH] (=ucs@jis/2004): New coded-charset for XEmacs CHISE.
 (=ucs@JP): Use `=ucs@jis/2004' instead of `=ucs@jis' as the
 mother.

---
 lisp/mule/mule-conf.el |   11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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"
-- 
1.7.10.4