From 8572a326a7d9a12215039ace44ef93a073186cf6 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 6 Mar 2011 09:21:55 +0000
Subject: [PATCH] (=>>>jis-x0213-1@2000): New coded-charset for XEmacs CHISE.
 (=>>>jis-x0213-1@2004): Use `=>>>jis-x0213-1' instead of
 `=jis-x0213-1@2004' as the mother. (=>>>ucs@jis/2004): New
 coded-charset for XEmacs CHISE. (=>>>ucs@ks): Ditto.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index dfe59bb..230a808 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -352,9 +352,21 @@
               ;; partial t
 	      ))
   (make-charset
+   '=>>>jis-x0213-1@2000
+   "JIS X 0213:2000 Plain 1 abstract glyph-images"
+   '(registry "jisx0213\\(\\.2000\\)-1"
+	      dimension 2
+	      chars 94
+	      mother =>>>jis-x0213-1
+	      =>iso-ir 228
+              ;; final ?O
+	      graphic 0
+	      ;; partial t
+	      ))
+  (make-charset
    '=>>>jis-x0213-1@2004
    "JIS X 0213:2004 Plain 1 abstract glyph-images"
-   '(mother =jis-x0213-1@2004
+   '(mother =>>>jis-x0213-1
 	    =>iso-ir 233
 	    ;; registry "jisx0213\\(\\.2004\\)-1"
 	    dimension 2
@@ -1149,6 +1161,26 @@
 		  direction	l2r
 		  =>iso-ir	177
 		  mother	=>>>ucs@unicode))
+  (make-charset '=>>>ucs@jis/2004
+		"UCS Representative glyphs for JIS X 0213:2004"
+		'(long-name	"UCS glyphs for JIS:2004"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>>ucs@jis))
+  (make-charset '=>>>ucs@ks
+		"UCS Representative glyphs for Korean Standards"
+		'(long-name	"UCS glyphs for KS"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>>ucs@unicode))
   (make-charset '=>>>ucs@cns
 		"UCS Representative glyphs for CNS 11643 sources"
 		'(long-name	"UCS glyphs for CNS"
-- 
1.7.10.4