;; 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"
direction l2r
registry "Daikanwa\\(\\.[0-9]+\\)?-3"
mother =daikanwa))
+ (make-charset '==daikanwa/+p
+ "Daikanwa detailed glyph-images (ddddd')"
+ '(long-name "Daikanwa detailed glyphs-images (ddddd')"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother =daikanwa/+p))
+ (make-charset '==daikanwa/ho
+ "Daikanwa detailed glyph-images (Hokan)"
+ '(long-name "Daikanwa-ho detailed glyph-images"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother =daikanwa/ho))
(make-charset '=>>daikanwa
"Daikanwa abstract glyphs"
(define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
(make-charset '==shinjigen
- "Kadokawa ShinJigen dictionary (common parts)"
- `(long-name "Shinjigen common parts"
+ "Detailed glyph-images of ShinJigen (common parts)"
+ '(long-name "Shinjigen common parts"
chars 256
dimension 2
columns 2
direction l2r
mother =shinjigen
registry "Shinjigen\\(\\.[0-9]+\\)?-*"))
+ (make-charset '==shinjigen@1ed
+ "Detailed glyph-images of ShinJigen (the first edition)"
+ '(long-name "Detailed glyph-images of Shinjigen-1"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother ==shinjigen
+ registry "Shinjigen\\(\\.[0-9]+\\)?-1"))
(make-charset '==shinjigen@rev
- "Kadokawa ShinJigen dictionary (the revised edition)"
- `(long-name "Shinjigen-2"
+ "Detailed glyph-images of ShinJigen (the revised edition)"
+ '(long-name "Detailed glyph-images of Shinjigen-2"
chars 256
dimension 2
columns 2
direction l2r
mother ==shinjigen
registry "Shinjigen\\(\\.[0-9]+\\)?-2"))
+ (make-charset
+ '==shinjigen/+p@rev
+ "Detailed glyph-images of ShinJigen (the second edition) number with '"
+ '(long-name "Detailed glyph-images of Shinjigen-2 with '"
+ mother =shinjigen/+p@rev
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r))
(make-charset '=big5-pua
"Big5 with private used area"
=>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"
=>iso-ir 177
mother =>>ucs@unicode))
- (make-charset '=>>>ucs@iso
- "Representative glyph-forms of ISO/IEC 10646"
- '(long-name "UCS glyph-forms for UCS"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =>>ucs@iso))
- (make-charset '=>>>ucs@unicode
- "Representative glyph-forms of Unicode"
- '(long-name "UCS glyph-forms for Unicode"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =>>>ucs@iso))
- (make-charset '=>>>ucs@jis
- "UCS Representative glyph-forms for JIS X0208/0212/0213"
- '(long-name "UCS glyph-forms for JIS"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =>>>ucs@unicode))
+ ;; (make-charset '=>>>ucs@iso
+ ;; "Representative glyph-forms of ISO/IEC 10646"
+ ;; '(long-name "UCS glyph-forms for UCS"
+ ;; chars 256
+ ;; dimension 3
+ ;; columns 2
+ ;; graphic 2
+ ;; direction l2r
+ ;; =>iso-ir 177
+ ;; mother =>>ucs@iso))
+ ;; (make-charset '=>>>ucs@unicode
+ ;; "Representative glyph-forms of Unicode"
+ ;; '(long-name "UCS glyph-forms for Unicode"
+ ;; chars 256
+ ;; dimension 3
+ ;; columns 2
+ ;; graphic 2
+ ;; direction l2r
+ ;; =>iso-ir 177
+ ;; mother =>>>ucs@iso))
+ ;; (make-charset '=>>>ucs@jis
+ ;; "UCS Representative glyph-forms for JIS X0208/0212/0213"
+ ;; '(long-name "UCS glyph-forms for JIS"
+ ;; chars 256
+ ;; dimension 3
+ ;; columns 2
+ ;; graphic 2
+ ;; direction l2r
+ ;; =>iso-ir 177
+ ;; mother =>>>ucs@unicode))
;; (make-charset '=>>>ucs@jis/1990
;; "UCS Representative glyph-forms for JIS X 0208/0212:1990"
;; '(long-name "UCS glyph-forms for JIS:1990"
graphic 2
direction l2r
=>iso-ir 177
- mother =>>>ucs@iso))
+ mother =>>ucs@iso
+ ;; mother =>>>ucs@iso
+ ))
+ (define-charset-alias '=>>>ucs@iso '=ucs@iso)
(make-charset '=ucs@unicode
"Unicode for its representative glyphs"
'(long-name "UCS for Unicode"
direction l2r
=>iso-ir 177
mother =ucs@iso))
+ (define-charset-alias '=>>>ucs@unicode '=ucs@unicode)
(make-charset '=ucs@gb
"ISO/IEC 10646 for GB"
'(long-name "UCS for GB"
=>iso-ir 177
mother =ucs@unicode))
(define-charset-alias 'ucs-jis '=ucs@jis)
+ (define-charset-alias '=>>>ucs@jis '=ucs@jis)
(make-charset '=ucs@jis/fw
"ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
'(long-name "UCS for JIS-fullwidth"
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"