(=hanyo-denshi/jb): New coded-charset for XEmacs CHISE.

[chise/xemacs-chise.git.1] / lisp / mule / mule-conf.el

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index d66f363..14946a8 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2008,
-;;   2009, 2010 MORIOKA Tomohiko
+;;   2009, 2010, 2011 MORIOKA Tomohiko
 
 ;; Keywords: mule, multilingual, character set, coding system
 
@@ -494,12 +494,22 @@
              ))
   (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
   (make-charset
+   '=>jis-x0213-2@usual
+   "JIS X 0213 Plain 2 based on usual unification."
+   '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
+             dimension 2
+             chars 94
+             mother =>>jis-x0213-2
+             =>iso-ir 229
+              ;; final ?P
+             graphic 0))
+  (make-charset
    '=>jis-x0213-2
    "JIS X 0213 Plain 2 abstract characters"
    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
              dimension 2
              chars 94
-             mother =>>jis-x0213-2
+             mother =>jis-x0213-2@usual
              =>iso-ir 229
               ;; final ?P
              graphic 0))
@@ -680,6 +690,31 @@
                  ))
   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
 
+  (make-charset '=daikanwa/+p
+               "Daikanwa dictionary (ddddd')"
+               `(long-name     "Daikanwa ddddd'"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r))
+  (make-charset '=daikanwa/+2p
+               "Daikanwa dictionary (ddddd'')"
+               `(long-name     "Daikanwa ddddd''"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r))
+  (make-charset '=daikanwa/ho
+               "Daikanwa dictionary (Hokan)"
+               `(long-name     "Daikanwa-ho"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r))
+
   (make-charset '=>>daikanwa
                "Daikanwa abstract glyphs"
                '(long-name     "Daikanwa glyphs"
@@ -892,6 +927,16 @@
                  min-code      #xE90000 ; #xE000
                  max-code      #xE908FF ; #xE8FF
                  code-offset   ,(- #xE90000 #xE000)))
+  (make-charset '=>>ruimoku-v6
+               "RUIMOKU Version.6 glyphs"
+               '(long-name     "RUI6 glyphs"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "rui6-0"
+                 mother        =ruimoku-v6))
 
   (make-charset '==>ucs@bucs
                "Basic Subset of Coded Character Sets (BUCS)"
@@ -934,6 +979,16 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        =>ucs@unicode))
+  (make-charset '=>ucs@JP
+               "UCS Representative characters for Japanese usual unification"
+               '(long-name     "UCS characters for JP"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =>ucs@jis))
   (make-charset '=>ucs@ks
                "UCS Representative characters for Korean Standards"
                '(long-name     "UCS characters for KS"
@@ -1463,6 +1518,33 @@
               min-code 0
               max-code 23057
               registry "AdobeJapan1-6$"))
+
+  (make-charset
+   '=hanyo-denshi/ja
+   "JA (JIS X0208) part of Han'you-Denshi characters"
+   `(long-name "Han'you-Denshi/JA"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JA-0$"
+              min-code ,(lsh #x6400 16)
+              max-code ,(+ (lsh #x6400 16) 8835)
+              code-offset ,(lsh #x6400 16)))
+  (make-charset
+   '=hanyo-denshi/jb
+   "JB (JIS X0212) part of Han'you-Denshi characters"
+   `(long-name "Han'you-Denshi/JB"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JB-0$"
+              min-code    ,(+ (lsh #x6400 16) 8836)
+              max-code    ,(+ (lsh #x6400 16) 8836 8835)
+              code-offset ,(+ (lsh #x6400 16) 8836)))
   )
 
 ;;; mule-conf.el ends here