;; Copyright (C) 1995 Amdahl Corporation.
;; Copyright (C) 1995 Sun Microsystems.
;; Copyright (C) 1997, 1999, 2002, 2003, 2004, 2005, 2006, 2008, 2009,
-;; 2010 MORIOKA Tomohiko
+;; 2010, 2011 MORIOKA Tomohiko
;; This file is part of XEmacs.
(when (featurep 'utf-2000)
(setq coded-charset-entity-reference-alist
'(((=adobe-japan1-base . isolated) "I-AJ1-" 5 d)
+ ((=adobe-japan1-6 . isolated) "I-AJ1-" 5 d)
((=gt . isolated) "I-GT-" 5 d)
((=ruimoku-v6 . isolated) "I-RUI6-" 4 X)
((chinese-big5-cdp . isolated) "I-CDP-" 4 X)
((arabic-digit . isolated) "I-MULE-ARBD-" 2 X)
((ipa . isolated) "I-MULE-IPA-" 2 X)
((china3-jef . isolated) "I-JC3-" 4 X)
+ ((=hanyo-denshi/ja . isolated) "I-HD-JA-" 4 X)
+ ((=hanyo-denshi/jb . isolated) "I-HD-JB-" 4 X)
+ ((=hanyo-denshi/jc . isolated) "I-HD-JC-" 4 X)
+ ((=hanyo-denshi/jd . isolated) "I-HD-JD-" 4 X)
+ ((=hanyo-denshi/ft . isolated) "I-HD-FT-" 4 X)
+ ((=hanyo-denshi/ia . isolated) "I-HD-IA-" 4 X)
+ ((=hanyo-denshi/ib . isolated) "I-HD-IB-" 4 X)
+ ((=hanyo-denshi/hg . isolated) "I-HD-HG-" 4 X)
( =adobe-japan1-6 "AJ1-" 5 d)
( =adobe-japan1-base "I-AJ1-" 5 d)
( =gt "GT-" 5 d)
( =ruimoku-v6 "RUI6-" 4 X)
( =big5-cdp "CDP-" 4 X)
( =daikanwa "M-" 5 d)
+ ( =daikanwa@rev1 "r1M-" 5 d)
( =gt-k "GT-K" 5 d)
( ideograph-cbeta "CB" 5 d)
( ideograph-hanziku-1 "HZK01-" 4 X)
((ideograph-hanziku-2 . isolated) "I-HZK2-" 4 X)
( ideograph-hanziku-2 "HZK2-" 4 X)
( =jis-x0208@1990 "J90-" 4 X)
- ( =jis-x0208@1983 "J83-" 4 X)
( =jis-x0213-1@2000 "JX1-" 4 X)
( =jis-x0213-2 "JX2-" 4 X)
( =jis-x0213-1@2004 "JX3-" 4 X)
( =jis-x0212 "JSP-" 4 X)
+ ( =hanyo-denshi/ja "HD-JA-" 4 X)
+ ( =hanyo-denshi/jb "HD-JB-" 4 X)
+ ( =hanyo-denshi/jc "HD-JC-" 4 X)
+ ( =hanyo-denshi/jd "HD-JD-" 4 X)
+ ( =hanyo-denshi/ft "HD-FT-" 4 X)
+ ( =hanyo-denshi/ia "HD-IA-" 4 X)
+ ( =hanyo-denshi/ib "HD-IB-" 4 X)
+ ( =hanyo-denshi/hg "HD-HG-" 4 X)
+ ( =jis-x0208@1983 "J83-" 4 X)
( =jis-x0208@1978 "J78-" 4 X)
( chinese-cns11643-1 "C1-" 4 X)
( chinese-cns11643-2 "C2-" 4 X)
(=>>jis-x0208@1978 "G-J78-" 4 X)
(=>>big5-cdp "G-CDP-" 4 X)
(=>>gt-k "G-GT-K" 5 d)
+ (=>>ruimoku-v6 "G-RUI6-" 4 X)
+ (=>>hanyo-denshi/ft "G-HD-FT-" 4 X)
+ ( =>jis-x0208@usual "o-J0-" 4 X)
( =>jis-x0208@1997 "J97-" 4 X)
( =>jis-x0208@1997 "A-J0-" 4 X)
( =>jis-x0213-1@2000 "A-JX1-" 4 X)
+ ( =>jis-x0213-2@usual "o-JX2-" 4 X)
( =>jis-x0213-2 "A-JX2-" 4 X)
( =>jis-x0213-1@2004 "A-JX3-" 4 X)
( =>gt "A-GT-" 5 d)
( =>zinbun-oracle "A-ZOB-" 4 d)
+ (==>ucs@bucs "BUCS+" 4 X)
( =>ucs@iso "A-IU+" 4 X)
( =>ucs@unicode "A-UU+" 4 X)
+ ( =>ucs@jis "A-JU+" 4 X)
+ ( =>ucs@cns "A-CU+" 4 X)
+ ( =>ucs@JP "o-JU+" 4 X)
(=>>ucs@iso "G-IU+" 4 X)
(=>>ucs@unicode "G-UU+" 4 X)
(=>>ucs@jis "G-JU+" 4 X)
+ (=>>ucs@ks "G-KU+" 4 X)
(=>>ucs@cns "G-CU+" 4 X)
(=>>ucs@jis/2004 "G-J04U+" 4 X)
(=>>ucs@jis/2000 "G-J00U+" 4 X)
'(mnemonic "MTF8r" use-entity-reference t))
(make-coding-system
+ 'utf-8-mcs-no-composition 'utf-8
+ "Coding-system of UTF-8 without composition."
+ '(mnemonic "MTF8-nc" disable-composition t))
+
+ (make-coding-system
'utf-8-gb 'utf-8
"Coding-system of UTF-8 using GB mapping."
'(mnemonic "UTF8G"