;; 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, 2011, 2012, 2013 MORIOKA Tomohiko
+;; 2009, 2010, 2011, 2012, 2013, 2014 MORIOKA Tomohiko
;; Keywords: mule, multilingual, character set, coding system
graphic 2
direction l2r
registry "AdobeJapan1-[0-6]$"
- min-code ,(lsh #x6300 16)
- max-code ,(+ (lsh #x6300 16) 23057)
- code-offset ,(lsh #x6300 16)))
+ min-code #xE10000
+ max-code ,(+ #xE10000 23057)
+ code-offset #xE10000
+ ;; min-code ,(lsh #x6300 16)
+ ;; max-code ,(+ (lsh #x6300 16) 23057)
+ ;; code-offset ,(lsh #x6300 16)
+ ))
(make-charset
'=adobe-japan1-0
"Adobe-Japan1-0 Character Collection for CID-Keyed Fonts"
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 #xE30000
+ max-code ,(+ #xE30000 68053)
+ code-offset #xE30000
+ ;; 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"
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"
registry "HanyoDenshi\\.HG-0$"
mother =hanyo-denshi/hg))
(make-charset
+ '==hanyo-denshi/ip
+ "Han'you-Denshi/IP detailed glyph-images."
+ '(long-name "Han'you-Denshi/IP glyph-images"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "HanyoDenshi\\.IP-0$"
+ mother =hanyo-denshi/ip))
+ (make-charset
'==hanyo-denshi/jt
"JT (Juuki Touitsu Moji) detailed glyph-images."
'(long-name "Han'you-Denshi/JT glyph-images"
max-code ,(+ (lsh #x6403 16) #xFFFF)
code-offset ,(lsh #x6403 16)))
+ (make-charset
+ '=koseki
+ "Representative glyph-images of KoSeki-touitsu-moji."
+ '(long-name "KoSeki-touitsu-moji"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ mother =hanyo-denshi/ks))
+
(define-charset-alias '=>>>hanyo-denshi/ja '=hanyo-denshi/ja)
;; (make-charset
;; '=>>>hanyo-denshi/ja
;; 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"
=>iso-ir 177
mother =ucs))
+ (make-charset '=>ucs@hanyo-denshi
+ "UCS abstract characters based on Han'you-Denshi collection."
+ '(long-name "UCS base characters of Han'you-Denshi"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother =ucs))
+
(make-charset '=>ucs@iso
"Abstract characters of ISO/IEC 10646 representatives"
'(long-name "UCS characters for ISO"
mother =ucs@unicode))
(define-charset-alias 'ucs-ks '=ucs@ks)
(define-charset-alias '=>>>ucs@ks '=ucs@ks)
+ (make-charset '=ucs@ks/2012
+ "Mapping for Korean Standards in ISO/IEC 10646:2012"
+ '(long-name "UCS:2012 for KS"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother =ucs@ks))
(make-charset '=ucs-bmp@ks
"ISO/IEC 10646 BMP for KS"
'(long-name "BMP for KS"
graphic 2
direction l2r
=>iso-ir 177
- mother =>>ucs@cns))
+ mother =ucs@cns
+ ;; mother =>>ucs@cns
+ ))
(define-charset-alias 'ucs-big5 '=ucs@big5)
(make-charset '=ucs@big5/cns11643
"ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"