;; 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 MORIOKA Tomohiko
+;; 2009, 2010, 2011, 2012, 2013, 2014, 2015 MORIOKA Tomohiko
;; Keywords: mule, multilingual, character set, coding system
;; final ?@
graphic 0))
(make-charset
+ '==jis-x0208@1978/1pr/fixed
+ "JIS X 0208:1978, correct glyph in the errata of 1st impression."
+ '(registry "jisx0208\\.1978"
+ dimension 2
+ chars 94
+ mother ==jis-x0208@1978/1pr
+ =>iso-ir 42
+ ;; final ?@
+ graphic 0
+ partial t))
+ (make-charset
'==jis-x0208@1978/2-pr
"JIS X 0208:1978, 2nd impression or later."
'(registry "jisx0208\\.1978"
graphic 0
;; partial t
))
- (make-charset
+ (make-charset
+ '==jis-x0208@1978/4er
+ "JIS X 0208:1978, replaced by errata of 4th impression."
+ '(registry "jisx0208\\.1978"
+ dimension 2
+ chars 94
+ mother ==jis-x0208@1978/2-pr
+ =>iso-ir 42
+ ;; final ?@
+ graphic 0
+ partial t))
+ (make-charset
+ '==jis-x0208@1978/5pr
+ "JIS X 0208:1978, 5th impression."
+ '(registry "jisx0208\\.1978"
+ dimension 2
+ chars 94
+ ;; mother ==jis-x0208@1978/4-pr
+ mother ==jis-x0208@1978/2-pr
+ =>iso-ir 42
+ ;; final ?@
+ graphic 0
+ partial t))
+ (make-charset
'==jis-x0208@1983
"JIS X 0208:1983 abstract glyph-forms."
'(registry "jisx0208\\.1983"
'(registry "jisx0208\\.1978"
dimension 2
chars 94
- mother ===jis-x0208
+ mother ==jis-x0208@1978
=>iso-ir 42
;; final ?@
graphic 0))
'(registry "jisx0208\\.1983"
dimension 2
chars 94
- mother ===jis-x0208
+ mother ==jis-x0208@1983
=>iso-ir 87
graphic 0))
(make-charset
'(registry "jisx0208\\.1990"
dimension 2
chars 94
- mother ===jis-x0208
+ mother ==jis-x0208@1990
=>iso-ir 168
;; final ?B
graphic 0))
'(registry "jisx0213\\(\\.2000\\)-1"
dimension 2
chars 94
- mother ===jis-x0213-1
+ mother ==jis-x0213-1@2000
=>iso-ir 228
;; final ?O
graphic 0
(make-charset
'===jis-x0213-1@2004
"JIS X 0213:2004 Plain 1 detailed representative glyph-images."
- '(mother ===jis-x0213-1
+ '(mother ==jis-x0213-1@2004
=>iso-ir 233
;; registry "jisx0213\\(\\.2004\\)-1"
dimension 2
(make-charset
'=koseki
- "Representative glyph-images of KoSeki-touitsu-moji."
- '(long-name "KoSeki-touitsu-moji"
+ "Abstract glyph-forms of KoSeki-touitsu-moji."
+ '(long-name "KoSeki-touitsu-moji glyph-forms"
chars 256
dimension 3
columns 2
graphic 2
direction l2r
mother =hanyo-denshi/ks))
+ (make-charset
+ '==koseki
+ "Representative glyph-images of KoSeki-touitsu-moji."
+ '(long-name "KoSeki-touitsu-moji glyph-images"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ mother =koseki))
(define-charset-alias '=>>>hanyo-denshi/ja '==hanyo-denshi/ja)
(define-charset-alias '=>>>hanyo-denshi/jb '==hanyo-denshi/jb)
registry "HanyoDenshi\\.JB-0$"
mother ==hanyo-denshi/jb))
(make-charset
+ '===hanyo-denshi/jc
+ "Han'you-Denshi/JC representative 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 representative 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"
registry "HanyoDenshi\\.FT-0$"
mother ==hanyo-denshi/ft))
(make-charset
+ '===hanyo-denshi/ia
+ "Han'you-Denshi/IA detailed 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"
registry "HanyoDenshi\\.HG-0$"
mother ==hanyo-denshi/hg))
(make-charset
+ '===hanyo-denshi/ip
+ "Han'you-Denshi/IP representative 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"
columns 2
direction l2r
mother =cbeta))
+ (make-charset '=>cbeta "CBETA abstract characters"
+ '(long-name "CBETA characters"
+ chars 256
+ dimension 2
+ registry "cbeta-0"
+ graphic 2
+ columns 2
+ direction l2r
+ mother =cbeta))
(make-charset '=zinbun-oracle
"Oracle Bones Script"
direction l2r
registry "rui6-0"
mother =ruimoku-v6))
+ (make-charset '===ruimoku-v6
+ "RUIMOKU Version.6 representative glyph-images."
+ '(long-name "RUI6 rep-glyph-images."
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "rui6-0"
+ mother ==ruimoku-v6))
(make-charset '=>>ruimoku-v6
"RUIMOKU Version.6 glyphs"
'(long-name "RUI6 glyphs"
=>iso-ir 177
mother =ucs))
+ (make-charset '=>iwds-1
+ "The IRG Working Document Series 1: List of UCV of Ideograhs."
+ '(long-name "IWDS 1: List of UCV"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r))
+
+ (make-charset '=>ucs@component
+ "UCS encoding for abstract components of IWDS-1."
+ '(long-name "UCS for IWDS-1 abstract components"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>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"
=>iso-ir 177
mother =+>ucs@unicode))
- (make-charset '=>>ucs@iso
- "Representative abstract-glyphs of ISO/IEC 10646"
- '(long-name "UCS abstract glyphs for UCS"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =+>ucs@iso))
- (make-charset '=>>ucs@unicode
- "Representative abstract-glyphs of Unicode"
- '(long-name "Unicode abstract glyphs"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =>>ucs@iso))
- (make-charset '=>>ucs@jis
- "UCS Representative abstract-glyphs for JIS X0208/0212/0213"
- '(long-name "UCS abstract glyphs 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 glyphs for JIS X 0208/0212:1990"
- '(long-name "UCS glyphs for JIS:1990"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =>>ucs@jis))
- (make-charset '=>>ucs@jis/2000
- "UCS Representative glyphs for JIS X 0213:2000"
- '(long-name "UCS glyphs for JIS:2000"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =>>ucs@jis))
- (make-charset '=>>ucs@jis/2004
- "UCS Representative glyphs for JIS X 0213:2004"
- '(long-name "UCS glyphs for JIS:2004"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =>>ucs@jis))
- (make-charset '=>>ucs@JP
- "UCS abstract-glyphs based on Japanese style glyphs"
- '(long-name "UCS glyphs for JP"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =>>ucs@jis/2004))
- (make-charset '=>>ucs@ks
- "UCS Representative glyphs for Korean Standards"
- '(long-name "UCS glyphs for KS"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =>>ucs@unicode))
- (make-charset '=>>ucs@cns
- "UCS Representative glyphs for CNS 11643 sources"
- '(long-name "UCS glyphs for CNS"
- chars 256
- dimension 3
- columns 2
- graphic 2
- direction l2r
- =>iso-ir 177
- mother =>>ucs@unicode))
-
(make-charset '=ucs@iso
"ISO/IEC 10646 for its representative glyphs"
'(long-name "UCS for ISO"
graphic 2
direction l2r
=>iso-ir 177
- mother =>>ucs@iso
+ mother =+>ucs@iso
))
(make-charset '=ucs@unicode
"Unicode for its representative glyphs"
=>iso-ir 177
mother =ucs@unicode))
(define-charset-alias 'ucs-cns '=ucs@cns)
- (define-charset-alias '=>>>ucs@cns '=ucs@cns)
(make-charset '=ucs@cns/fw
"ISO/IEC 10646 for CNS 11643 with fullwidth"
'(long-name "UCS for CNS-fullwidth"
=>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@jis))
(define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
(define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
- (define-charset-alias '=>>>ucs@jis/1990 '=ucs@jis/1990)
(make-charset '=ucs@jis/2000
"ISO/IEC 10646 for JIS X 0213:2000"
'(long-name "UCS for JIS:2000"
mother =ucs@jis))
(define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
(define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
- (define-charset-alias '=>>>ucs@jis/2000 '=ucs@jis/2000)
(make-charset '=ucs@jis/2004
"ISO/IEC 10646 for JIS X 0213:2004"
'(long-name "UCS for JIS:2004"
direction l2r
=>iso-ir 177
mother =ucs@jis))
- (define-charset-alias '=>>>ucs@jis/2004 '=ucs@jis/2004)
(make-charset '=ucs@JP
"UCS for common glyphs used in Japan"
'(long-name "UCS for Japan"
=>iso-ir 177
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"
=>iso-ir 177
mother =ucs@big5))
+ (make-charset '=>>ucs@iso
+ "Representative abstract-glyphs of ISO/IEC 10646"
+ '(long-name "UCS abstract glyphs for UCS"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother =ucs@iso))
+ (make-charset '=>>ucs@unicode
+ "Representative abstract-glyphs of Unicode"
+ '(long-name "Unicode abstract glyphs"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother =>>ucs@iso))
+ (make-charset '=>>ucs@jis
+ "UCS Representative abstract-glyphs for JIS X0208/0212/0213"
+ '(long-name "UCS abstract glyphs 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 glyphs for JIS X 0208/0212:1990"
+ '(long-name "UCS glyphs for JIS:1990"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother =>>ucs@jis))
+ (make-charset '=>>ucs@jis/2000
+ "UCS Representative glyphs for JIS X 0213:2000"
+ '(long-name "UCS glyphs for JIS:2000"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother =>>ucs@jis))
+ (make-charset '=>>ucs@jis/2004
+ "UCS Representative glyphs for JIS X 0213:2004"
+ '(long-name "UCS glyphs for JIS:2004"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother =>>ucs@jis))
+ (make-charset '=>>ucs@JP
+ "UCS abstract-glyphs based on Japanese style glyphs"
+ '(long-name "UCS glyphs for JP"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother =>>ucs@jis/2004))
+ (make-charset '=>>ucs@ks
+ "UCS Representative glyphs for Korean Standards"
+ '(long-name "UCS glyphs for KS"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ =>iso-ir 177
+ mother =>>ucs@unicode))
+ (make-charset '=>>ucs@cns
+ "UCS Representative glyphs for CNS 11643 sources"
+ '(long-name "UCS glyphs for CNS"
+ 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"
direction l2r
=>iso-ir 177
mother ==ucs@unicode))
+ (define-charset-alias '=>>>ucs@cns '==ucs@cns)
(make-charset '==ucs-bmp@cns
"ISO/IEC 10646 BMP for CNS"
'(long-name "BMP for CNS"
direction l2r
=>iso-ir 177
mother ==ucs@unicode))
+ (define-charset-alias '=>>>ucs@jis '==ucs@jis)
(make-charset '==ucs@jis/1990
"UCS Representative glyph-forms for JIS X 0208/0212:1990."
'(long-name "UCS glyph-forms for JIS:1990"
direction l2r
=>iso-ir 177
mother ==ucs@jis))
+ (define-charset-alias '=>>>ucs@jis/1990 '==ucs@jis/1990)
(make-charset '==ucs@jis/2000
"UCS Representative glyph-forms for JIS X 0213:2000."
'(long-name "UCS glyph-forms for JIS:2000"
direction l2r
=>iso-ir 177
mother ==ucs@jis))
+ (define-charset-alias '=>>>ucs@jis/2000 '==ucs@jis/2000)
(make-charset '==ucs@jis/2004
"UCS Representative glyph-forms for JIS X 0213:2004."
'(long-name "UCS glyph-forms for JIS:2004"
direction l2r
=>iso-ir 177
mother ==ucs@jis))
+ (define-charset-alias '=>>>ucs@jis/2004 '==ucs@jis/2004)
(make-charset '==ucs@JP
"UCS for common glyph-forms used in Japan."
'(long-name "UCS for Japan"
direction l2r
=>iso-ir 177
mother ==ucs@unicode))
+ (define-charset-alias '=>>>ucs@ks '==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@iso))
+ mother ==ucs@unicode))
(make-charset '===ucs@gb
"UCS representative glyph-images of GB."
'(long-name "UCS rep-images for GB"
graphic 2
direction l2r
=>iso-ir 177
- mother ===ucs@unicode))
+ mother ==ucs@ks))
+ (make-charset '=ucs-var-001
+ "uXXXX-var-001 glyph-images of GlyphWiki"
+ '(long-name "UCS-var-001"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs))
+ (make-charset '=ucs-bmp-var-001
+ "uXXXX-var-001 glyph-images in BMP"
+ '(long-name "UCS-BMP-var-001"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs-var-001
+ min-code #x2E00
+ max-code #x9FA5
+ registry "ucs\\.var001-0"))
+ (make-charset '=ucs-var-002
+ "uXXXX-var-002 glyph-images of GlyphWiki"
+ '(long-name "UCS-var-002"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs))
+ (make-charset '=ucs-bmp-var-002
+ "uXXXX-var-002 glyph-images in BMP"
+ '(long-name "UCS-BMP-var-002"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs-var-002
+ min-code #x2E00
+ max-code #x9FA5
+ registry "ucs\\.var002-0"))
+ (make-charset '=ucs-var-003
+ "uXXXX-var-003 glyph-images of GlyphWiki"
+ '(long-name "UCS-var-003"
+ chars 256
+ dimension 3
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs))
+ (make-charset '=ucs-bmp-var-003
+ "uXXXX-var-003 glyph-images in BMP"
+ '(long-name "UCS-BMP-var-003"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ ;; =>iso-ir 177
+ mother =ucs-var-003
+ min-code #x2E00
+ max-code #x9FA5
+ registry "ucs\\.var003-0"))
(make-charset '=ucs-itaiji-084
"uXXXX-itaiji-084 glyph-images of GlyphWiki"
'(long-name "UCS-itaiji-084"
mother =ucs@unicode
min-code #x2E00 max-code #x2FFF))
(make-charset
+ '==ucs-radicals@unicode
+ "CJK Radicals of UCS"
+ '(long-name "UCS-Radicals"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "-zhRadicals-.*-ucs-0"
+ mother ==ucs@unicode
+ min-code #x2E00 max-code #x2FFF))
+ (make-charset
'=ucs-hangul
"Hangul Syllables of UCS"
'(long-name "UCS-Hangul-Syllables"
;; max-code #xA4CF
))
(make-charset
+ '=>ucs-bmp-cjk@component
+ "CJK Characters in BMP for IWDS-1 abstract components."
+ '(long-name "CJK in BMP@component"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "-ja-.*-ucs-0"
+ mother =>ucs@component
+ min-code #x2E00
+ max-code #x9FA5
+ ;; max-code #xA4CF
+ ))
+ (make-charset
'==>ucs-bmp-cjk@bucs
"CJK Characters in BMP of BUCS"
'(long-name "BUCS-BMP-CJK"
columns 2
graphic 2
direction l2r
- registry "\\(iso10646\\|ucs02\\)-2$"
+ registry "\\(iso10646\\|ucs00\\)-2$"
mother ucs
min-code #x20000 max-code #x2A6D6
code-offset #x20000))
(make-charset
+ '=ucs-sip@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 "ucs00-2$"
+ mother =ucs@iso
+ min-code #x20000 max-code #x2FFFF
+ code-offset #x20000))
+ (make-charset
'=ucs-sip-ext-b@iso
"CJK Ideographs Extension B (ISO/IEC 10646-2)"
'(long-name "UCS CJK Ext-B"
columns 2
graphic 2
direction l2r
- registry "\\(iso10646\\|ucs02\\)-2$"
+ registry "\\(iso10646\\|ucs00\\)-2$"
mother =ucs@iso
min-code #x20000 max-code #x2A6D6
code-offset #x20000))
(make-charset
+ '==ucs-sip@iso
+ "ISO representative abstract-glyph-images of ISO/IEC 10646 Plane 2"
+ '(long-name "SIP abstract glyph-images"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "\\(ucs00\\)-2$"
+ mother ==ucs@iso
+ code-offset #x20000))
+ (make-charset
'==ucs-sip-ext-b@iso
"CJK Ideographs Extension B (ISO/IEC 10646-2)"
'(long-name "UCS CJK Ext-B"
columns 2
graphic 2
direction l2r
- registry "\\(iso10646\\|ucs02\\)-2$"
+ registry "\\(iso10646\\|ucs00\\)-2$"
mother ==ucs@iso
min-code #x20000 max-code #x2A6D6
code-offset #x20000))
(make-charset
+ '===ucs-sip@iso
+ "ISO representative glyph-images of ISO/IEC 10646 Plane 2"
+ '(long-name "SIP rep-glyph-images"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "\\(ucs00\\)-2$"
+ mother ===ucs@iso
+ code-offset #x20000))
+ (make-charset
'===ucs-sip-ext-b@iso
"CJK Ideographs Extension B (ISO/IEC 10646-2)"
'(long-name "UCS CJK Ext-B"
columns 2
graphic 2
direction l2r
- registry "\\(iso10646\\|ucs02\\)-2$"
+ registry "\\(iso10646\\|ucs00\\)-2$"
mother ===ucs@iso
min-code #x20000 max-code #x2A6D6
code-offset #x20000))
projects / chise / xemacs-chise.git / blobdiff