(=adobe-japan1-0): Modify registry to accept "AdobeJapan1-[0-6]$".
authorMORIOKA Tomohiko <tomo.git@chise.org>
Wed, 16 Oct 2013 12:53:38 +0000 (21:53 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Wed, 16 Oct 2013 12:53:38 +0000 (21:53 +0900)
(=adobe-japan1-1): Modify registry to accept "AdobeJapan1-[1-6]$".
(=adobe-japan1-2): Modify registry to accept "AdobeJapan1-[2-6]$".
(=adobe-japan1-3): Modify registry to accept "AdobeJapan1-[3-6]$".
(=adobe-japan1-4): Modify registry to accept "AdobeJapan1-[4-6]$".
(=adobe-japan1-5): Modify registry to accept "AdobeJapan1-[5-6]$".
(==adobe-japan1-0): New coded-charset for XEmacs CHISE.
(==adobe-japan1-1): Ditto.
(==adobe-japan1-2): Ditto.
(==adobe-japan1-3): Ditto.
(==adobe-japan1-4): Ditto.
(==adobe-japan1-5): Ditto.
(==adobe-japan1-6): Ditto.
(==jis-x0208): Ditto.
(==jis-x0208@1978): Ditto.
(==jis-x0208@1983): Ditto.
(==jis-x0208@1990): Ditto.
(==jis-x0213-1): Ditto.
(==jis-x0213-1@2000): Ditto.
(==jis-x0213-1@2004): Ditto.
(==jis-x0213-2): Ditto.
(==jis-x0212): Ditto.
(==gb2312): Ditto.
(==iso-ir165): Ditto.
(==gb12345): Ditto.
(==ks-x1001): Ditto.
(==cns11643-1): Ditto.
(==cns11643-2): Ditto.
(==cns11643-3): Ditto.
(==cns11643-4): Ditto.
(==cns11643-5): Ditto.
(==cns11643-6): Ditto.
(==cns11643-7): Ditto.
(==big5-cdp): Ditto.
(==hanyo-denshi/ja): Ditto.
(==hanyo-denshi/jb): Ditto.
(==hanyo-denshi/jc): Ditto.
(==hanyo-denshi/jd): Ditto.
(==hanyo-denshi/ft): Ditto.
(==hanyo-denshi/ia): Ditto.
(==hanyo-denshi/ib): Ditto.
(==hanyo-denshi/hg): Ditto.
(==hanyo-denshi/jt): Ditto.
(==hanyo-denshi/ks): Ditto.
(==gt): Ditto.
(==gt-k): Ditto.
(==daikanwa): Ditto.
(==shinjigen): Ditto.
(==ucs@iso): Ditto.
(==ucs@unicode): Ditto.
(==ucs@gb): Ditto.
(==ucs-bmp@gb): Ditto.
(==ucs@cns): Ditto.
(==ucs-bmp@cns): Ditto.
(==ucs@jis): Ditto.
(==ucs@jis/1990): Ditto.
(==ucs@jis/2000): Ditto.
(==ucs@jis/2004): Ditto.
(==ucs@JP): Ditto.
(==ucs@JP/hanazono): Ditto.
(==ucs@ks): Ditto.
(==ucs-bmp@ks): Ditto.
(==ucs@cns11643): Ditto.
(==ucs-bmp-cjk@gb): Ditto.
(==ucs-bmp-cjk@JP/hanazono): Ditto.
(==ucs-sip-ext-b@iso): Ditto.

lisp/mule/mule-conf.el

index 6f03d11..903968f 100644 (file)
@@ -53,7 +53,7 @@
               mother =adobe-japan1-base
               min-code 0
               max-code 8283
-              registry "AdobeJapan1-0$"))
+              registry "AdobeJapan1-[0-6]$"))
   (make-charset
    '=adobe-japan1-1
    "Adobe-Japan1-1 Character Collection for CID-Keyed Fonts"
@@ -66,7 +66,7 @@
               mother =adobe-japan1-0
               min-code 0
               max-code 8358
-              registry "AdobeJapan1-1$"))
+              registry "AdobeJapan1-[1-6]$"))
   (make-charset
    '=adobe-japan1-2
    "Adobe-Japan1-2 Character Collection for CID-Keyed Fonts"
@@ -79,7 +79,7 @@
               mother =adobe-japan1-1
               min-code 0
               max-code 8719
-              registry "AdobeJapan1-2$"))
+              registry "AdobeJapan1-[2-6]$"))
   (make-charset
    '=adobe-japan1-3
    "Adobe-Japan1-3 Character Collection for CID-Keyed Fonts"
@@ -92,7 +92,7 @@
               mother =adobe-japan1-2
               min-code 0
               max-code 9353
-              registry "AdobeJapan1-3$"))
+              registry "AdobeJapan1-[3-6]$"))
   (make-charset
    '=adobe-japan1-4
    "Adobe-Japan1-4 Character Collection for CID-Keyed Fonts"
               mother =adobe-japan1-3
               min-code 0
               max-code 15443
-              registry "AdobeJapan1-4$"))
+              registry "AdobeJapan1-[4-6]$"))
   (make-charset
    '=adobe-japan1-5
    "Adobe-Japan1-5 Character Collection for CID-Keyed Fonts"
               mother =adobe-japan1-4
               min-code 0
               max-code 20316
-              registry "AdobeJapan1-5$"))
+              registry "AdobeJapan1-[5-6]$"))
   (make-charset
    '=adobe-japan1-6
    "Adobe-Japan1-6 Character Collection for CID-Keyed Fonts"
   (define-charset-alias '=adobe-japan1 '=adobe-japan1-6)
 
   (make-charset
+   '==adobe-japan1-0
+   "Adobe-Japan1-0 detailed glyph-images."
+   '(long-name "Adobe-Japan1-0 glyph-images"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              mother =adobe-japan1-0
+              registry "AdobeJapan1-0$"))
+  (make-charset
+   '==adobe-japan1-1
+   "Adobe-Japan1-1 detailed glyph-images."
+   '(long-name "Adobe-Japan1-1 glyph-images"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              mother ==adobe-japan1-0
+              registry "AdobeJapan1-1$"))
+  (make-charset
+   '==adobe-japan1-2
+   "Adobe-Japan1-2 detailed glyph-images."
+   '(long-name "Adobe-Japan1-2 glyph-images"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              mother ==adobe-japan1-1
+              registry "AdobeJapan1-2$"))
+  (make-charset
+   '==adobe-japan1-3
+   "Adobe-Japan1-3 detailed glyph-images."
+   '(long-name "Adobe-Japan1-3 glyph-images"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              mother ==adobe-japan1-2
+              registry "AdobeJapan1-3$"))
+  (make-charset
+   '==adobe-japan1-4
+   "Adobe-Japan1-4 detailed glyph-images."
+   '(long-name "Adobe-Japan1-4 glyph-images"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              mother ==adobe-japan1-3
+              registry "AdobeJapan1-4$"))
+  (make-charset
+   '==adobe-japan1-5
+   "Adobe-Japan1-5 detailed glyph-images."
+   '(long-name "Adobe-Japan1-5 glyph-images"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              mother ==adobe-japan1-4
+              registry "AdobeJapan1-5$"))
+  (make-charset
+   '==adobe-japan1-6
+   "Adobe-Japan1-6 detailed glyph-images."
+   '(long-name "Adobe-Japan1-6 glyph-images"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              mother ==adobe-japan1-5
+              registry "AdobeJapan1-6$"))
+  (define-charset-alias '==adobe-japan1 '==adobe-japan1-6)
+
+  (make-charset
    '=>>>adobe-japan1-0
    "Adobe-Japan1-0 abstract glyph-forms"
    '(long-name "Adobe-Japan1-0 abstract glyph-forms"
   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
 
   (make-charset
+   '==jis-x0208
+   "JIS X 0208 detailed representative 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@1978
+   "JIS X 0208:1978 detailed representative glyph-images."
+   '(registry "jisx0208\\.1978"
+             dimension 2
+             chars 94
+             mother ==jis-x0208
+             =>iso-ir 42
+             ;; final ?@
+             graphic 0))
+  (make-charset
+   '==jis-x0208@1983
+   "JIS X 0208:1983 detailed representative glyph-images."
+   '(registry "jisx0208\\.1983"
+             dimension 2
+             chars 94
+             mother ==jis-x0208
+             =>iso-ir 87
+             graphic 0))
+  (make-charset
+   '==jis-x0208@1990
+   "JIS X 0208:1990 detailed representative 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 detailed representative 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-x0213-1@2000
+   "JIS X 0213:2000 Plain 1 detailed representative 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 detailed representative glyph-images."
+   '(mother ==jis-x0213-1
+           =>iso-ir 233
+           ;; registry "jisx0213\\(\\.2004\\)-1"
+           dimension 2
+           chars 94
+           graphic 0))
+
+  (make-charset
+   '==jis-x0213-2
+   "JIS X 0213 Plain 2 detailed representative glyph-images."
+   '(mother =jis-x0213-2
+           =>iso-ir 229
+           registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
+           dimension 2
+           chars 94
+           graphic 0))
+
+  (make-charset
+   '==jis-x0212
+   "JIS X 0212 representative glyph-images."
+   '(registry "jisx0212"
+             dimension 2
+             chars 94
+             mother =jis-x0212
+             =>iso-ir 159
+             ;; final ?D
+             graphic 0))
+
+  (make-charset
+   '==gb2312
+   "GB 2312 representative glyph-images."
+   '(registry "gb2312"
+             dimension 2
+             chars 94
+             mother =gb2312
+             =>iso-ir 58
+             ;; final ?A
+             graphic 0))
+  (make-charset
+   '==iso-ir165
+   "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
+   '(registry "isoir165"
+             =>iso-ir 165
+             dimension 2
+             chars 94
+             mother =iso-ir165
+             ;; final ?E
+             graphic 0))
+  (make-charset
+   '==gb12345
+   "GB 12345 representative glyph-images."
+   '(registry "gb12345"
+             dimension 2
+             chars 94
+             mother =gb12345
+             graphic 0))
+
+  (make-charset
+   '==ks-x1001
+   "KS X 1001 representative glyph-images."
+   '(registry "ksc5601"
+             dimension 2
+             chars 94
+             mother =ks-x1001
+             =>iso-ir 149
+             ;; final ?C
+             graphic 0))
+
+  (make-charset
    '=>>>jis-x0208
    "JIS X 0208 abstract glyph-forms (unchanged part)."
    '(registry "jisx0208\\.1990"
              graphic 0))
 
   (make-charset
+   '==cns11643-1
+   "CNS 11643 Plane 1 representative glyph-images."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
+             dimension 1
+             chars 94
+             mother =cns11643-1
+             =>iso-ir 171
+             graphic 0))
+  (make-charset
+   '==cns11643-2
+   "CNS 11643 Plane 2 representative glyph-images."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
+             dimension 1
+             chars 94
+             mother =cns11643-2
+             =>iso-ir 172
+             graphic 0))
+  (make-charset
+   '==cns11643-3
+   "CNS 11643 Plane 3 representative glyph-images."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
+             dimension 1
+             chars 94
+             mother =cns11643-3
+             =>iso-ir 183
+             graphic 0))
+  (make-charset
+   '==cns11643-4
+   "CNS 11643 Plane 4 representative glyph-images."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
+             dimension 1
+             chars 94
+             mother =cns11643-4
+             =>iso-ir 184
+             graphic 0))
+  (make-charset
+   '==cns11643-5
+   "CNS 11643 Plane 5 representative glyph-images."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
+             dimension 1
+             chars 94
+             mother =cns11643-5
+             =>iso-ir 185
+             graphic 0))
+  (make-charset
+   '==cns11643-6
+   "CNS 11643 Plane 6 representative glyph-images."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
+             dimension 1
+             chars 94
+             mother =cns11643-6
+             =>iso-ir 186
+             graphic 0))
+  (make-charset
+   '==cns11643-7
+   "CNS 11643 Plane 7 representative glyph-images."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
+             dimension 1
+             chars 94
+             mother =cns11643-7
+             =>iso-ir 187
+             graphic 0))
+
+  (make-charset
    '=>>cns11643-4
    "CNS 11643 Plane 4 abstract glyphs."
    '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
                  max-code      #x8DFE))
   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
 
+  (make-charset '==big5-cdp
+               "Representative glyph-images of Big5-CDP"
+               '(long-name     "Big5-CDP glyph-images"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "big5\\.cdp-0"
+                 mother        =big5-cdp))
+
   (make-charset '=>>big5-cdp
                "Abstract glyphs of Big5-CDP"
                '(long-name     "Big5-CDP glyphs"
               columns 2
               graphic 2
               direction l2r))
+
+  (make-charset
+   '==hanyo-denshi/ja
+   "Han'you-Denshi/JA detailed glyph-images."
+   '(long-name "Han'you-Denshi/JA glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JA-0$"
+              mother =hanyo-denshi/ja))
+  (make-charset
+   '==hanyo-denshi/jb
+   "Han'you-Denshi/JB detailed glyph-images."
+   '(long-name "Han'you-Denshi/JB glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JB-0$"
+              mother =hanyo-denshi/jb))
+  (make-charset
+   '==hanyo-denshi/jc
+   "Han'you-Denshi/JC detailed glyph-images."
+   '(long-name "Han'you-Denshi/JC glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JC-0$"
+              mother =hanyo-denshi/jc))
+  (make-charset
+   '==hanyo-denshi/jd
+   "Han'you-Denshi/JD detailed glyph-images."
+   '(long-name "Han'you-Denshi/JD glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JD-0$"
+              mother =hanyo-denshi/jd))
+  (make-charset
+   '==hanyo-denshi/ft
+   "Han'you-Denshi/FT detailed glyph-images."
+   '(long-name "Han'you-Denshi/FT glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.FT-0$"
+              mother =hanyo-denshi/ft))
+  (make-charset
+   '==hanyo-denshi/ia
+   "Han'you-Denshi/IA representative glyph-images."
+   '(long-name "Han'you-Denshi/IA glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.IA-0$"
+              mother =hanyo-denshi/ia))
+  (make-charset
+   '==hanyo-denshi/ib
+   "Han'you-Denshi/IB detailed glyph-images."
+   '(long-name "Han'you-Denshi/IB glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.IB-0$"
+              mother =hanyo-denshi/ib))
+  (make-charset
+   '==hanyo-denshi/hg
+   "Han'you-Denshi/HG detailed glyph-images."
+   '(long-name "Han'you-Denshi/HG glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.HG-0$"
+              mother =hanyo-denshi/hg))
+  (make-charset
+   '==hanyo-denshi/jt
+   "JT (Juuki Touitsu Moji) detailed glyph-images."
+   '(long-name "Han'you-Denshi/JT glyph-images"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JT-0$"
+              mother =hanyo-denshi/jt))
+  (make-charset
+   '==hanyo-denshi/ks
+   "KoSeki-touitsu-moji detailed glyph-images."
+   '(long-name "Han'you-Denshi/KS glyph-images"
+              chars 256
+              dimension 3
+              columns 2
+              graphic 2
+              direction l2r
+              mother =hanyo-denshi/ks))
+
   (make-charset
    '=hanyo-denshi/ks/mf
    "font encoding for KS (KoSeki) characters"
                  min-code      ,(lsh #x6100 16)
                  max-code      ,(+ (lsh #x6100 16) 67547)
                  code-offset   ,(lsh #x6100 16)))
+  (make-charset '==gt
+               "GT 2000 detailed glyph-images."
+               '(long-name     "GT glyph-images"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =gt
+                  ;; min-code  1
+                  ;; max-code  67392
+                 ))
   (define-charset-alias 'ideograph-gt '=gt)
   (make-charset '=>>>gt
                "GT 2000 abstract glyph-forms"
                  max-code      ,(+ (lsh #x6110 16) 17090)
                  code-offset   ,(lsh #x6110 16)))
   (define-charset-alias 'ideograph-gt-k '=gt-k)
+  (make-charset '==gt-k
+               "Representative glyph-images of GT-K"
+               '(long-name     "GT-K glyph-images"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =gt-k))
   (make-charset '=>>gt-k
                "abstract glyphs of GT-K"
                '(long-name     "GT-K abstract glyphs"
                  graphic       2
                  direction     l2r))
 
+  (make-charset '==daikanwa
+               "Daikanwa detailed glyph-images."
+               '(long-name     "Daikanwa detailed glyph-images"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
+                 mother        =daikanwa))
+
   (make-charset '=>>daikanwa
                "Daikanwa abstract glyphs"
                '(long-name     "Daikanwa glyphs"
                  direction     l2r))
   (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
 
+  (make-charset '==shinjigen
+               "Kadokawa ShinJigen dictionary (common parts)"
+               `(long-name     "Shinjigen common parts"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =shinjigen
+                 registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
+
   (make-charset '=big5-pua
                "Big5 with private used area"
                '(long-name     "Big5-PUA"
                  =>iso-ir      177
                  mother        =ucs@big5))
 
+  (make-charset '==ucs@iso
+               "ISO/IEC 10646 for its representative glyph-images."
+               '(long-name     "ISO rep-image for UCS"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =ucs@iso))
+  (make-charset '==ucs@unicode
+               "Unicode for its representative glyph-images."
+               '(long-name     "UCS for Unicode"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@iso))
+  (make-charset '==ucs@gb
+               "ISO/IEC 10646 for GB"
+               '(long-name     "UCS for GB"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@unicode))
+  (make-charset '==ucs-bmp@gb
+               "ISO/IEC 10646 BMP for GB"
+               '(long-name     "BMP for GB"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        ==ucs@gb
+                 min-code      #x0000
+                 max-code      #xFFFF))
+  (make-charset '==ucs@cns
+               "ISO/IEC 10646 for CNS 11643"
+               '(long-name     "UCS for CNS"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@unicode))
+  (make-charset '==ucs-bmp@cns
+               "ISO/IEC 10646 BMP for CNS"
+               '(long-name     "BMP for CNS"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        ==ucs@cns
+                 min-code      #x0000
+                 max-code      #xFFFF))
+  (make-charset '==ucs@jis
+               "ISO/IEC 10646 for JIS X0208/0212/0213"
+               '(long-name     "UCS for JIS"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@unicode))
+  (make-charset '==ucs@jis/1990
+               "ISO/IEC 10646 for JIS X 0208/0212:1990"
+               '(long-name     "UCS for JIS:1990"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@jis))
+  (make-charset '==ucs@jis/2000
+               "ISO/IEC 10646 for JIS X 0213:2000"
+               '(long-name     "UCS for JIS:2000"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@jis))
+  (make-charset '==ucs@jis/2004
+               "ISO/IEC 10646 for JIS X 0213:2004"
+               '(long-name     "UCS for JIS:2004"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@jis))
+  (make-charset '==ucs@JP
+               "UCS for common glyph-images used in Japan."
+               '(long-name     "UCS for Japan"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@jis/2004))
+  (make-charset '==ucs@JP/hanazono
+               "Japanese glyph-images of Hanazono Mincho."
+               '(long-name     "UCS for Hana-Min"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@JP))
+  (make-charset '==ucs@ks
+               "ISO/IEC 10646 for Korean Standards."
+               '(long-name     "UCS for KS"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@unicode))
+  (make-charset '==ucs-bmp@ks
+               "ISO/IEC 10646 BMP for KS."
+               '(long-name     "BMP for KS"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        ==ucs@ks
+                 min-code      #x0000
+                 max-code      #xFFFF))
+  (make-charset '==ucs@cns11643
+               "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw."
+               '(long-name     "UCS for CNS11643"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        ==ucs@cns))
+
   (make-charset '=ucs-itaiji-084
                "uXXXX-itaiji-084 glyph-images of GlyphWiki"
                '(long-name     "UCS-itaiji-084"
               ;; max-code #xA4CF
               ))
   (make-charset
+   '==ucs-bmp-cjk@gb
+   "CJK Characters in BMP with GB representative glyph-images."
+   '(long-name "CJK in BMP@GB"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "-zh-.*-ucs-0"
+              mother ==ucs@gb
+              min-code #x2E00
+               max-code #x9FA5
+              ;; max-code #xA4CF
+              ))
+  (make-charset
    '=ucs-bmp-cjk@JP
    "CJK Characters in BMP with JIS representative glyphs"
    '(long-name "CJK in BMP@JP"
               ;; max-code #xA4CF
               ))
   (make-charset
+   '==ucs-bmp-cjk@JP/hanazono
+   "CJK Characters in BMP with Hanazono font"
+   '(long-name "CJK in BMP@JP/Hanazono"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "-ja-.*-ucs-0"
+              mother ==ucs@JP/hanazono
+              min-code #x2E00
+               max-code #x9FA5
+              ;; max-code #xA4CF
+              ))
+  (make-charset
    '=+>ucs-bmp-cjk@unicode
    "Unicode representative characters of CJK Unified Ideographs in BMP"
    '(long-name "Unicode-BMP-CJK unified abstract glyphs"
               mother =ucs@iso
               min-code #x20000 max-code #x2A6D6
               code-offset #x20000))
+  (make-charset
+   '==ucs-sip-ext-b@iso
+   "CJK Ideographs Extension B (ISO/IEC 10646-2)"
+   '(long-name "UCS CJK Ext-B"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "\\(iso10646\\|ucs02\\)-2$"
+              mother ==ucs@iso
+              min-code #x20000 max-code #x2A6D6
+              code-offset #x20000))
   )
 
 ;;; mule-conf.el ends here