From: tomo <tomo>
Date: Sat, 11 Sep 2010 17:07:29 +0000 (+0000)
Subject: (=>>>jis-x0208): New coded-charset for XEmacs CHISE.
X-Git-Tag: chise-base-0_25-1^20~120
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fc450534673f5d0f1aa0b2b86c2911cf0c52fd01;p=chise%2Fxemacs-chise.git

(=>>>jis-x0208): New coded-charset for XEmacs CHISE.
(=>>>jis-x0208@1990): Ditto.
(=>>>jis-x0213-1): Ditto.
(=>>jis-x0208): Use `=>>>jis-x0208' instead of `=jis-x0208' as the
mother.
(=>>jis-x0213-1): Use `=>>>jis-x0213-1' instead of `=jis-x0213-1' as
the mother.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 04fa5c3..ffd30bd 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -320,12 +320,45 @@
   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
 
   (make-charset
+   '=>>>jis-x0208
+   "JIS X 0208 abstract glyph-images (unchanged part)."
+   '(registry "jisx0208\\.1990"
+	      dimension 2
+	      chars 94
+	      mother =jis-x0208
+	      =>iso-ir 168
+	      ;; final ?B
+	      graphic 0))
+  (make-charset
+   '=>>>jis-x0208@1990
+   "JIS X 0208:1990 abstract glyph-images."
+   '(registry "jisx0208\\.1990"
+	      dimension 2
+	      chars 94
+	      mother =>>>jis-x0208
+	      =>iso-ir 168
+	      ;; final ?B
+	      graphic 0))
+  (make-charset
+   '=>>>jis-x0213-1
+   "JIS X 0213 Plain 1 abstract glyph-images (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-x0208
    "JIS X 0208 abstract glyphs (unchanged part)."
    '(registry "jisx0208\\.1990"
 	      dimension 2
 	      chars 94
-	      mother =jis-x0208
+	      mother =>>>jis-x0208
 	      =>iso-ir 168
 	      ;; final ?B
 	      graphic 0))
@@ -346,7 +379,7 @@
    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
 	      dimension 2
 	      chars 94
-	      mother =jis-x0213-1
+	      mother =>>>jis-x0213-1
 	      =>iso-ir 228
               ;; final ?O
 	      graphic 0