From: tomo <tomo>
Date: Sun, 6 Mar 2011 09:21:55 +0000 (+0000)
Subject: (=>>>jis-x0213-1@2000): New coded-charset for XEmacs CHISE.
X-Git-Tag: r21-4-22-chise-0_25-6^20~274
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8572a326a7d9a12215039ace44ef93a073186cf6;p=chise%2Fxemacs-chise.git

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

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"