From: tomo <tomo>
Date: Wed, 26 Aug 2009 21:50:27 +0000 (+0000)
Subject: (<=>jis-x0208): New coded-charset for XEmacs CHISE.
X-Git-Tag: r21-4-22-chise-0_24-jis-x0213-rep-diffs^20~320
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=80796177032b5924d9bea74a0bcdbe4ea02d6347;p=chise%2Fxemacs-chise.git

(<=>jis-x0208): New coded-charset for XEmacs CHISE.
(<=>jis-x0208@1997): Renamed from `=jis-x0208@1997'; use
`<=>jis-x0208' as the mother.
(<=>jis-x0213-1): New coded-charset for XEmacs CHISE.
(<=>jis-x0213-1@2000): Ditto.
(<=>jis-x0213-1@2004): Ditto.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 1542db1..aa467a7 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -264,15 +264,58 @@
   (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990)
   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
   (make-charset
-   '=jis-x0208@1997
-   "JIS X 0208 based on the unification rule of 1997 edition."
+   '<=>jis-x0208
+   "JIS X 0208 based on the unchanged unification rules."
    '(registry "jisx0208\\.1990"
 	      dimension 2
 	      chars 94
 	      mother =jis-x0208
 	      ;; final ?B
 	      graphic 0))
-
+  (make-charset
+   '<=>jis-x0208@1997
+   "JIS X 0208 based on the unification rule of 1997 edition."
+   '(registry "jisx0208\\.1990"
+	      dimension 2
+	      chars 94
+	      mother <=>jis-x0208
+	      ;; final ?B
+	      graphic 0))
+  (define-charset-alias '=jis-x0208@1997 '<=>jis-x0208@1997)
+  (make-charset
+   '<=>jis-x0213-1
+   "JIS X 0213 Plain 1 abstract characters (unchanged part)"
+   '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
+	      dimension 2
+	      chars 94
+	      mother =jis-x0213-1
+              ;; =>iso-ir 228
+              ;; final ?O
+	      graphic 0
+	      partial t))
+  (make-charset
+   '<=>jis-x0213-1@2000
+   "JIS X 0213 Plain 1 abstract characters based on 2000 edition"
+   '(registry "jisx0213\\(\\.[0-9]+\\)?-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 Plain 1 abstract characters based on 2004 edition"
+   '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
+	      dimension 2
+	      chars 94
+	      mother <=>jis-x0213-1
+              ;; =>iso-ir 228
+              ;; final ?O
+	      graphic 0
+	      partial t))
+  
   (make-charset '=big5-cdp
 		"Big5 with CDP extension"
 		'(long-name	"Big5-CDP"