;; 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, 2014, 2015, 2016, 2017, 2018, 2019
-;; MORIOKA Tomohiko
+;; 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019,
+;; 2020 MORIOKA Tomohiko
;; Keywords: mule, multilingual, character set, coding system
direction l2r
mother =>>daikanwa/ho))
+ (make-charset '=daijiten
+ "Daijiten dictionary glyphs"
+ `(long-name "Daijiten glyphs"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "Daijiten-*"
+ min-code #xE50000
+ max-code ,(+ #xE50000 14924)
+ code-offset #xE50000))
+ (make-charset '==daijiten
+ "Daijiten dictionary glyph-forms"
+ `(long-name "Daijiten glyph-forms"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother =daijiten
+ registry "Daijiten-*"))
+ (make-charset '===daijiten
+ "Daijiten dictionary glyph-images"
+ `(long-name "Daijiten glyph-images"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother ==daijiten
+ registry "Daijiten-*"))
+ (make-charset '==>daijiten
+ "Jishu of Daijiten dictionary"
+ `(long-name "Daijiten jishu"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother =daijiten
+ registry "Daijiten-*"))
+
(make-charset '=shinjigen
"Kadokawa ShinJigen dictionary (common parts)"
`(long-name "Shinjigen common parts"
graphic 2
columns 2
direction l2r))
+ (make-charset '===hng-fhs "HNG:P2195妙法蓮華經卷六"
+ '(long-name "HNG/P2195"
+ chars 256
+ dimension 2
+ registry "hng-12$"
+ graphic 2
+ columns 2
+ direction l2r))
(make-charset '===hng-hok "HNG:妙法蓮華經卷八（S.2577）"
'(long-name "HNG/S2577"
chars 256
graphic 2
columns 2
direction l2r))
+ (make-charset '===hng-kkh "HNG:金剛般若經（京都国立博物館本）"
+ '(long-name "HNG/京博金般"
+ chars 256
+ dimension 2
+ registry "hng-27$"
+ graphic 2
+ columns 2
+ direction l2r))
(make-charset '===hng-nak "HNG:華嚴孔目（高山寺本）"
'(long-name "HNG/華厳孔目"
chars 256
graphic 2
columns 2
direction l2r))
+ (make-charset '===hng-ini "HNG:日本書紀卷二(鴨脚本)"
+ '(long-name "HNG/鴨脚紀2"
+ chars 256
+ dimension 2
+ registry "hng-38$"
+ graphic 2
+ columns 2
+ direction l2r))
(make-charset '===hng-nkk "HNG:日本書紀 卷二（兼方本）"
'(long-name "HNG/兼方紀2"
chars 256
graphic 2
columns 2
direction l2r))
+ (make-charset '===hng-sai "HNG:最上秘密那拏天經(東禪寺版日本寫本)"
+ '(long-name "HNG/最上秘密"
+ chars 256
+ dimension 2
+ registry "hng-61$"
+ graphic 2
+ columns 2
+ direction l2r))
+ (make-charset '===hng-kad "HNG:大般若經卷八十(春日版)"
+ '(long-name "HNG/春日般若"
+ chars 256
+ dimension 2
+ registry "hng-62$"
+ graphic 2
+ columns 2
+ direction l2r))
(make-charset '===hng-kss "HNG:華嚴信種義（明惠自筆）"
'(long-name "HNG/華嚴信種"
chars 256
graphic 2
columns 2
direction l2r))
+ (make-charset '===hng-ykk "HNG:守屋本藥師功徳經"
+ '(long-name "HNG/藥師功徳"
+ chars 256
+ dimension 2
+ registry "hng-68$"
+ graphic 2
+ columns 2
+ direction l2r))
+ (make-charset '===hng-saa "HNG:阿毘達磨大毘婆沙論卷百七十(正倉院本)"
+ '(long-name "HNG/正毘170"
+ chars 256
+ dimension 2
+ registry "hng-70$"
+ graphic 2
+ columns 2
+ direction l2r))
+ (make-charset '===hng-sab "HNG:阿毘達磨大毘婆沙論卷百七十八(正倉院本)"
+ '(long-name "HNG/正毘178"
+ chars 256
+ dimension 2
+ registry "hng-71$"
+ graphic 2
+ columns 2
+ direction l2r))
+ (make-charset '===hng-wks "HNG:花嚴經卷六十七(守屋本)"
+ '(long-name "HNG/和寧華67"
+ chars 256
+ dimension 2
+ registry "hng-72$"
+ graphic 2
+ columns 2
+ direction l2r))
+ (make-charset '===hng-wke "HNG:花嚴經卷六十八(守屋本)"
+ '(long-name "HNG/和寧華68"
+ chars 256
+ dimension 2
+ registry "hng-73$"
+ graphic 2
+ columns 2
+ direction l2r))
(make-charset '===hng-smk "HNG:西夏版妙法蓮華經卷一"
'(long-name "HNG/西夏法華"
chars 256
graphic 2
columns 2
direction l2r))
+ (make-charset '===hng-sgs "HNG:四分律卷第十六(正倉院五月一日經)"
+ '(long-name "HNG/正四分16"
+ chars 256
+ dimension 2
+ registry "hng-77$"
+ graphic 2
+ columns 2
+ direction l2r))
+ (make-charset '===hng-sts "HNG:四分律卷第二十(正倉院唐經)"
+ '(long-name "HNG/正四分20"
+ chars 256
+ dimension 2
+ registry "hng-78$"
+ graphic 2
+ columns 2
+ direction l2r))
(make-charset '=cbeta "CBETA private characters"
'(long-name "CBETA PUA"
direction l2r
registry "cdp\\.itaiji-3$"
mother =big5-cdp))
+ (make-charset '=>big5-cdp-itaiji-003
+ "Big5-CDP-itaiji-003 abstract characters of GlyphWiki"
+ '(long-name "Big5-CDP-itaiji-003"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "cdp\\.itaiji-3$"
+ mother =big5-cdp-itaiji-003))
(make-charset '=big5-cdp-var-001
- "Big5-CDP-var-001 glyph-images of GlyphWiki"
+ "Big5-CDP-var-001 glyphs of GlyphWiki"
'(long-name "Big5-CDP-var-001"
chars 256
dimension 2
registry "cdp\\.var-1$"
mother =big5-cdp))
+ (make-charset '=>big5-cdp-var-001
+ "Big5-CDP-var-001 abstract characters of GlyphWiki"
+ '(long-name "Big5-CDP-var-001"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "cdp\\.var-1$"
+ mother =big5-cdp-var-001))
+
(make-charset '=big5-cdp-var-002
"Big5-CDP-var-002 glyph-images of GlyphWiki"
'(long-name "Big5-CDP-var-002"
mother =big5-cdp))
(define-charset-alias '=big5-cdp-var-5 '=big5-cdp-var-005)
+ (make-charset '=big5-cdp-var-007
+ "Big5-CDP-var-007 glyph-images of GlyphWiki"
+ '(long-name "Big5-CDP-var-007"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "cdp\\.var-7$"
+ mother =big5-cdp))
+
(make-charset '=big5-cdp-var-010
"Big5-CDP-var-010 glyph-images of GlyphWiki"
'(long-name "Big5-CDP-var-010"
direction l2r
=>iso-ir 177
mother =ucs))
+ (make-charset '==>ucs@esu
+ "Extended Subset of Coded Character Sets (ESU)"
+ '(long-name "BUCS abstract characters"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother ==>ucs@bucs))
(make-charset '=>iwds-1
"The IRG Working Document Series 1: List of UCV of Ideograhs."
direction l2r
=>iso-ir 177
mother =ucs))
+ (make-charset '=>ucs@iwds-1/normalized
+ "UCS abstract characters based on IWDS-1."
+ '(long-name "UCS based on IWDS-1"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother =>ucs@iwds-1))
(make-charset '=>ucs@cognate
"UCS abstract characters based on cognate."
mother =ucs-var-001
min-code #x20000 max-code #x2FFFF
registry "ucs00\\.var001-2"))
+ (make-charset '==ucs-var-001
+ "Abstract glyph-forms corresponding with uXXXX-var-001 of GlyphWiki"
+ '(long-name "UCS-var-001"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs-var-001))
+ (make-charset '==ucs-bmp-var-001
+ "uXXXX-var-001's abstract glyph-forms in BMP"
+ '(long-name "UCS-BMP-var-001 glyph-forms"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother ==ucs-var-001
+ min-code #x2E00
+ max-code #x9FCC
+ registry "ucs\\.var001-0"))
(make-charset '=ucs-var-002
"uXXXX-var-002 glyph-images of GlyphWiki"
mother =ucs-var-006
min-code #x20000 max-code #x2FFFF
registry "ucs00\\.var006-2"))
+
+ (make-charset '=ucs-var-007
+ "uXXXX-var-007 glyph-images of GlyphWiki"
+ '(long-name "UCS-var-007"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs))
+ (make-charset '=ucs-bmp-var-007
+ "uXXXX-var-007 glyph-images in BMP"
+ '(long-name "UCS-BMP-var-007"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs-var-007
+ min-code #x2E00
+ max-code #x9FCC
+ registry "ucs\\.var007-0"))
+
(make-charset '=ucs-var-008
"uXXXX-var-008 glyph-images of GlyphWiki"
'(long-name "UCS-var-008"
mother =ucs-itaiji-001
min-code #x20000 max-code #x2FFFF
registry "ucs00\\.itaiji001-2"))
+ (make-charset '=ucs-tip-itaiji-001
+ "uXXXX-itaiji-001 glyph-images in TIP"
+ '(long-name "UCS-TIP-itaiji-001"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother =ucs-itaiji-001
+ min-code #x30000 max-code #x3FFFF
+ registry "ucs00\\.itaiji001-3"))
(make-charset '=>ucs-itaiji-001
"Abstract characters corresponding with uXXXX-itaiji-001 of GlyphWiki"
'(long-name "UCS-itaiji-001"
mother ==ucs-itaiji-002
min-code #x20000 max-code #x2FFFF
registry "ucs00\\.itaiji002-2"))
+ (make-charset '=>ucs-itaiji-002@iwds-1
+ "uXXXX-itaiji-002's abstract characters based on IWDS-1"
+ '(long-name "IWDS-1 abstract characters of UCS-itaiji-002"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =>ucs-itaiji-002))
+ (make-charset '=>ucs-bmp-itaiji-002@iwds-1
+ "IWDS-1 abstract characters of UCS-itaiji-002 in BMP"
+ '(long-name "=>ucs-itaiji-002@iwds-1 in BMP"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =>ucs-itaiji-002@iwds-1
+ min-code #x2E00
+ max-code #x9FCC
+ registry "ucs\\.itaiji002-0"))
(make-charset '=ucs-itaiji-003
"uXXXX-itaiji-003 glyphs of GlyphWiki"
mother =ucs-itaiji-008
min-code #x20000 max-code #x2FFFF
registry "ucs00\\.itaiji008-2"))
+ (make-charset '=>ucs-itaiji-008
+ "Abstract characters corresponding with uXXXX-itaiji-008 of GlyphWiki"
+ '(long-name "UCS-itaiji-008 characters"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs))
+ (make-charset '=>ucs-bmp-itaiji-008
+ "uXXXX-itaiji-008's abstract characters in BMP"
+ '(long-name "UCS-BMP-itaiji-008 characters"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =>ucs-itaiji-008
+ min-code #x2E00
+ max-code #x9FCC
+ registry "ucs\\.itaiji008-0"))
(make-charset '=ucs-itaiji-009
"uXXXX-itaiji-009 glyphs of GlyphWiki"
min-code #x2E00
max-code #x9FCC
registry "ucs\\.itaiji010-0"))
+ (make-charset '=>ucs-itaiji-010
+ "Abstract characters corresponding with uXXXX-itaiji-010 of GlyphWiki"
+ '(long-name "UCS-itaiji-010"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs))
+ (make-charset '=>ucs-bmp-itaiji-010
+ "uXXXX-itaiji-010's abstract characters in BMP"
+ '(long-name "UCS-BMP-itaiji-010 characters"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =>ucs-itaiji-010
+ min-code #x2E00
+ max-code #x9FCC
+ registry "ucs\\.itaiji010-0"))
(make-charset '=ucs-itaiji-011
"uXXXX-itaiji-011 glyphs of GlyphWiki"
mother =ucs-itaiji-011
min-code #x20000 max-code #x2FFFF
registry "ucs00\\.itaiji011-2"))
+ (make-charset '=>ucs-itaiji-011
+ "Abstract characters corresponding with uXXXX-itaiji-011 of GlyphWiki"
+ '(long-name "UCS-itaiji-011"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs))
+ (make-charset '=>ucs-bmp-itaiji-011
+ "uXXXX-itaiji-011's abstract characters in BMP"
+ '(long-name "UCS-BMP-itaiji-011 characters"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =>ucs-itaiji-011
+ min-code #x2E00
+ max-code #x9FCC
+ registry "ucs\\.itaiji011-0"))
(make-charset '=ucs-itaiji-012
"uXXXX-itaiji-012 glyphs of GlyphWiki"
registry "-ja-.*-ucs-0"
mother =ucs@JP/hanazono
min-code #x2E00
- max-code #x9FCC
+ max-code #x9FEA
;; max-code #xA4CF
))
(make-charset
;; max-code #xA4CF
))
(make-charset
+ '=>ucs-bmp-cjk@iwds-1/normalized
+ "CJK Characters in BMP for IWDS-1 abstract characters."
+ '(long-name "CJK in BMP@iwds-1/normalized"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "-ja-.*-ucs-0"
+ mother =>ucs@iwds-1/normalized
+ min-code #x2E00
+ max-code #x9FCC
+ ;; max-code #xA4CF
+ ))
+ (make-charset
'==>ucs-bmp-cjk@bucs
"CJK Characters in BMP of BUCS"
'(long-name "BUCS-BMP-CJK"
min-code #x20000 max-code #x2FFFF
code-offset #x20000))
(make-charset
+ '=ucs-sip@gb
+ "UCS G-source glyphs of UCS SIP"
+ '(long-name "u2XXXX-g glyphs of UCS"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "-ucs00\\.g-2$"
+ mother =ucs@gb
+ min-code #x20000 max-code #x2FFFF
+ code-offset #x20000))
+ (make-charset
+ '=ucs-tip
+ "Tertiary Ideographic Plane of UCS"
+ '(long-name "UCS TUP"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "\\(iso10646\\|ucs00\\)-3$"
+ mother ucs
+ min-code #x30000 max-code #x3134A
+ code-offset #x30000))
+ (make-charset
+ '=ucs-tip@JP/hanazono
+ "Hanazono glyphs of UCS TIP"
+ '(long-name "Hanazono TIP glyphs"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "ucs00-3$"
+ mother =ucs@JP/hanazono
+ min-code #x30000 max-code #x3134A
+ code-offset #x30000))
+ (make-charset
'=>ucs-sip@iwds-1
"CJK Characters in SIP based on IWDS-1."
'(long-name "CJK in SIP@IWDS-1"
min-code #x20000 max-code #x2FFFF
code-offset #x20000))
(make-charset
+ '=>ucs-tip@cognate
+ "CJK Characters in TIP for abstract characters based on cognate."
+ '(long-name "CJK in TIP@cognate"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "ucs00-3$"
+ mother =>ucs@cognate
+ min-code #x30000 max-code #x3FFFF
+ code-offset #x30000))
+ (make-charset
'=>ucs-sip@component
"CJK Characters in SIP for IWDS-1 abstract components."
'(long-name "CJK in SIP@component"
min-code #x20000 max-code #x2FFFF
code-offset #x20000))
(make-charset
+ '=>ucs-tip@component
+ "CJK Characters in TIP for IWDS-1 abstract components."
+ '(long-name "CJK in TIP@component"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "ucs00-3$"
+ mother =>ucs@component
+ min-code #x30000 max-code #x3134A
+ code-offset #x30000))
+ (make-charset
+ '==>ucs-sip@esu
+ "UCS glyphs in UCS SIP of ESU"
+ '(long-name "ESU SIP"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "ucs00-2$"
+ mother ==>ucs@esu
+ min-code #x20000 max-code #x2FFFF
+ code-offset #x20000))
+ (make-charset
'==ucs-sip@JP/hanazono
"Hanazono glyphs-forms of UCS SIP"
'(long-name "Hanazono SIP glyph-forms"
min-code #x20000 max-code #x2A6D6
code-offset #x20000))
(make-charset
+ '==ucs-tip@JP/hanazono
+ "Hanazono glyphs-forms of UCS TIP"
+ '(long-name "Hanazono TIP glyph-forms"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "ucs00-3$"
+ mother ==ucs@JP/hanazono
+ min-code #x30000 max-code #x3134A
+ code-offset #x30000))
+ (make-charset
'===ucs-sip@iso
"ISO representative glyph-images of ISO/IEC 10646 Plane 2"
'(long-name "SIP rep-glyph-images"
projects / chise / xemacs-chise.git / blobdiff