From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 20 Feb 2014 13:42:02 +0000 (+0900)
Subject: (=mj): New coded-charset for XEmacs CHISE.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ced6d06db0a4b40b35c340435011407e99f44400;p=chise%2Fxemacs-chise.git-

(=mj): New coded-charset for XEmacs CHISE.
(=mj-0): Ditto.
(=mj-1): Ditto.
(==mj): Ditto.
(==mj-0): Ditto.
(==mj-1): Ditto.
(=>>mj): Ditto.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 1ff98aa..87dcd21 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -1421,6 +1421,46 @@
 		  mother	=>>big5-cdp))
 
   (make-charset
+   '=mj
+   "Moji-Jouhou-Kiban characters"
+   `(long-name "Moji-Jouhou-Kiban"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+               ;; registry "mj-0$"
+	       min-code	      ,(lsh #x6404 16)
+	       max-code	   ,(+ (lsh #x6404 16) 68053)
+	       code-offset    ,(lsh #x6404 16)))
+  (make-charset
+   '=mj-0
+   "Moji-Jouhou-Kiban plane 0"
+   '(long-name "Moji-Jouhou-Kiban-0"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "mj-0$"
+	       mother =mj
+	       min-code	0
+	       max-code	#xFFFF))
+  (make-charset
+   '=mj-1
+   "Moji-Jouhou-Kiban plane 1"
+   '(long-name "Moji-Jouhou-Kiban-1"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "mj-1$"
+	       mother =mj
+	       min-code	#x10000
+	       code-offset #x10000))
+
+  (make-charset
    '=hanyo-denshi/ja
    "JA (JIS X0208) part of Han'you-Denshi characters"
    `(long-name "Han'you-Denshi/JA"
@@ -1561,6 +1601,43 @@
 	       direction l2r))
 
   (make-charset
+   '==mj
+   "Moji-Jouhou-Kiban detailed glyph-images."
+   '(long-name "MJ glyph-images"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       mother =mj))
+  (make-charset
+   '==mj-0
+   "MJ detailed glyph-images plane 0"
+   '(long-name "MJ glyph-images-0"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "mj-0$"
+	       mother ==mj
+	       min-code	0
+	       max-code	#xFFFF))
+  (make-charset
+   '==mj-1
+   "MJ detailed glyph-images plane 1"
+   '(long-name "MJ glyph-images-1"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "mj-1$"
+	       mother ==mj
+	       min-code	#x10000
+	       code-offset #x10000))
+
+  (make-charset
    '==hanyo-denshi/ja
    "Han'you-Denshi/JA detailed glyph-images."
    '(long-name "Han'you-Denshi/JA glyph-images"
@@ -1815,6 +1892,17 @@
   ;;              mother =hanyo-denshi/ks))
 
   (make-charset
+   '=>>mj
+   "Moji-Jouhou-Kiban abstract glyphs."
+   '(long-name "MJ glyphs"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       mother =mj))
+
+  (make-charset
    '=>>hanyo-denshi/ja
    "Han'you-Denshi/JA abstract glyphs"
    '(long-name "Han'you-Denshi/JA glyphs"