(U+6215): Apply new conventions for glyph granularity.
[chise/xemacs-chise.git.1] / lisp / mule / mule-coding.el
index a198c54..668b9fb 100644 (file)
@@ -5,7 +5,7 @@
 ;; Copyright (C) 1995 Amdahl Corporation.
 ;; Copyright (C) 1995 Sun Microsystems.
 ;; Copyright (C) 1997, 1999, 2002, 2003, 2004, 2005, 2006, 2008, 2009,
-;;   2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017 MORIOKA Tomohiko
+;;   2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
          (===ks-x1001                          "R-K0-" 4 X)
          ( =iso-ir165                           "EGB-" 4 X)
          ( =jis-x0208@1983                      "J83-" 4 X)
-         ( =jis-x0208@1978                      "J78-" 4 X)
+         ( =koseki                           "KOSEKI-" 6 d)
+         ( =ucs-var-001                      "U-v001+" 4 X)
+         ( =ucs-var-002                      "U-v002+" 4 X)
+         ( =ucs-var-003                      "U-v003+" 4 X)
+         ( =ucs-var-004                      "U-v004+" 4 X)
+         ( =ucs-var-005                      "U-v005+" 4 X)
+         ( =ucs-var-006                      "U-v006+" 4 X)
+         ( =ucs-var-008                      "U-v008+" 4 X)
+         ( =ucs-var-010                      "U-v010+" 4 X)
+         ( =ucs-itaiji-001                   "U-i001+" 4 X)
+         ( =ucs-itaiji-002                   "U-i002+" 4 X)
+         ( =ucs-itaiji-003                   "U-i003+" 4 X)
+         ( =ucs-itaiji-004                   "U-i004+" 4 X)
+         ( =ucs-itaiji-005                   "U-i005+" 4 X)
+         ( =ucs-itaiji-006                   "U-i006+" 4 X)
+         ( =ucs-itaiji-007                   "U-i007+" 4 X)
+         ( =ucs-itaiji-008                   "U-i008+" 4 X)
+         ( =ucs-itaiji-009                   "U-i009+" 4 X)
+         ( =ucs-itaiji-010                   "U-i010+" 4 X)
+         ( =ucs-itaiji-011                   "U-i011+" 4 X)
+         ( =ucs-itaiji-012                   "U-i012+" 4 X)
+         ( =ucs-itaiji-084                   "U-i084+" 4 X)
+         ( =big5-cdp-var-001               "CDP-v001-" 4 X)
+         ( =big5-cdp-var-002               "CDP-v002-" 4 X)
+         ( =big5-cdp-var-003               "CDP-v003-" 4 X)
+         ( =big5-cdp-var-004               "CDP-v004-" 4 X)
+         ( =big5-cdp-var-005               "CDP-v005-" 4 X)
+         ( =big5-cdp-var-010               "CDP-v010-" 4 X)
+         ( =big5-cdp-itaiji-001            "CDP-i001-" 4 X)
+         ( =big5-cdp-itaiji-002            "CDP-i002-" 4 X)
+         ( =big5-cdp-itaiji-003            "CDP-i003-" 4 X)
+         ( =jis-x0208@1978/1pr                  "J78-" 4 X)
          ( =gt-k                                "GT-K" 5 d)
+         (==jis-x0208@1983                   "g2-J83-" 4 X)
+         (==koseki                        "g2-KOSEKI-" 6 d)
+         (==ucs-var-002                   "g2-U-v002+" 4 X)
+         (==ucs-itaiji-001                "g2-U-i001+" 4 X)
+         (==ucs-itaiji-002                "g2-U-i002+" 4 X)
+         (==ucs-itaiji-003                "g2-U-i003+" 4 X)
+         (==ucs-itaiji-005                "g2-U-i005+" 4 X)
+         (==ucs-itaiji-006                "g2-U-i006+" 4 X)
+         (==big5-cdp-itaiji-001         "g2-CDP-i001-" 4 X)
+         (==jis-x0208@1978/1pr               "g2-J78-" 4 X)
          (==gt-k                             "g2-GT-K" 5 d)
          (===gt-k                             "R-GT-K" 5 d)
-         (==jis-x0208@1983                   "g2-J83-" 4 X)
-         (==jis-x0208@1978                   "g2-J78-" 4 X)
          (===jis-x0208@1983                   "R-J83-" 4 X)
          (===jis-x0208@1978                   "R-J78-" 4 X)
-         ( =koseki                           "KOSEKI-" 6 d)
-         (==koseki                        "g2-KOSEKI-" 6 d)
          ( =cbeta                                 "CB" 5 d)
          (=>cbeta                               "A-CB" 5 d)
          (==cbeta                              "g2-CB" 5 d)
          ((=hanziku-2          . isolated)   "I-HZK2-" 4 X)
          ( =hanziku-2                          "HZK2-" 4 X)
          ( =hanyo-denshi/ks/mf                 "KSMF-" 5 d)
-         ( =ucs-var-001                      "U-v001+" 4 X)
-         ( =ucs-var-002                      "U-v002+" 4 X)
-         ( =ucs-var-003                      "U-v003+" 4 X)
-         ( =ucs-var-004                      "U-v004+" 4 X)
-         ( =ucs-var-006                      "U-v006+" 4 X)
-         ( =ucs-var-008                      "U-v008+" 4 X)
-         ( =ucs-var-010                      "U-v010+" 4 X)
-         ( =ucs-itaiji-001                   "U-i001+" 4 X)
-         ( =ucs-itaiji-002                   "U-i002+" 4 X)
-         ( =ucs-itaiji-003                   "U-i003+" 4 X)
-         ( =ucs-itaiji-004                   "U-i004+" 4 X)
-         ( =ucs-itaiji-005                   "U-i005+" 4 X)
-         ( =ucs-itaiji-006                   "U-i006+" 4 X)
-         ( =ucs-itaiji-008                   "U-i008+" 4 X)
-         ( =ucs-itaiji-009                   "U-i009+" 4 X)
-         ( =ucs-itaiji-084                   "U-i084+" 4 X)
-         ( =big5-cdp-itaiji-001            "CDP-i001-" 4 X)
-         (==big5-cdp-itaiji-001         "g2-CDP-i001-" 4 X)
-         ( =big5-cdp-itaiji-002            "CDP-i002-" 4 X)
-         ( =big5-cdp-itaiji-003            "CDP-i003-" 4 X)
-         ( =big5-cdp-var-003               "CDP-v003-" 4 X)
-         ( =big5-cdp-var-004               "CDP-v004-" 4 X)
-         ( =big5-cdp-var-005               "CDP-v005-" 4 X)
          ( =big5-cdp-var-3                 "CDP-var3-" 4 X)
          ( =big5-cdp-var-5                 "CDP-var5-" 4 X)
          ( latin-iso8859-1                   "LATIN1-" 2 X)
          ( arabic-2-column                "MULE-ARB2-" 2 X)
          ( arabic-digit                   "MULE-ARBD-" 2 X)
          ( ipa                             "MULE-IPA-" 2 X)
-         (=>>>jis-x0208                       "g2-J0-" 4 X)
-         (=>>>jis-x0208                       "GI-J0-" 4 X)
-         (=>>>jis-x0213-1                    "g2-JX1-" 4 X)
-         (=>>>jis-x0213-1                    "GI-JX1-" 4 X)
-         (=>>>jis-x0213-1@2004               "GI-JX3-" 4 X)
+          ;; (=>>>jis-x0208                    "g2-J0-" 4 X)
+          ;; (=>>>jis-x0208                    "GI-J0-" 4 X)
+          ;; (=>>>jis-x0213-1                 "g2-JX1-" 4 X)
+          ;; (=>>>jis-x0213-1                 "GI-JX1-" 4 X)
+          ;; (=>>>jis-x0213-1@2004            "GI-JX3-" 4 X)
+         (=>>mj                                 "G-MJ" 6 d)
          (=>>adobe-japan1                     "G-AJ1-" 5 d)
          (=>>jis-x0208                         "G-J0-" 4 X)
          (=>>jis-x0213-1@2000                 "G-JX1-" 4 X)
          (=+>jis-x0208@1978                   "o-J78-" 4 X)
          (=+>adobe-japan1                     "o-AJ1-" 5 d)
          (=+>gt                                "o-GT-" 5 d)
+         (=+>big5-cdp                         "o-CDP-" 4 X)
          (=+>hanyo-denshi/ft                "o-HD-FT-" 4 X)
          (=+>hanyo-denshi/jt                "o-HD-JT-" 4 X)
          ( =>jis-x0208@1997                     "J97-" 4 X)
          ( =>gt-k                             "A-GT-K" 5 d)
          ( =>zinbun-oracle                    "A-ZOB-" 4 d)
          (==>ucs@bucs                          "BUCS+" 4 X)
-         ( =>iwds-1                           "IWDS1-" 3 d)
          ( =>ucs@iwds-1                     "A-IWDSU+" 4 X)
+         ( =>ucs@cognate                     "A-cgnU+" 4 X)
+         ( =>ucs@component                  "A-compU+" 4 X)
+         ( =>iwds-1                           "IWDS1-" 3 d)
          ( =>mj                                 "A-MJ" 6 d)
          ( =>ucs@hanyo-denshi                 "A-HDU+" 4 X)
          ( =>ucs@hanyo-denshi              "A-HD-UCS+" 4 X)
          ( =>ucs@cns                           "A-CU+" 4 X)
          ( =>ucs@ks                            "A-KU+" 4 X)
          ( =>ucs@jis/2004                    "A-J04U+" 4 X)
-         ( =>ucs@component                  "A-compU+" 4 X)
          ( =>ruimoku-v6                      "A-RUI6-" 4 X)
          (=+>ucs@iso                           "o-IU+" 4 X)
          (=+>ucs@unicode                       "o-UU+" 4 X)
          (=>cns11643-7                         "A-C7-" 4 X)
          (=>big5-cdp                          "A-CDP-" 4 X)
          (=>ucs-itaiji-001                 "A-U-i001+" 4 X)
+         (=>ucs-itaiji-002                 "A-U-i002+" 4 X)
+         (=>ucs-itaiji-003                 "A-U-i003+" 4 X)
+         (=>ucs-itaiji-004                 "A-U-i004+" 4 X)
+         (=>ucs-itaiji-005                 "A-U-i005+" 4 X)
+         (=>ucs-itaiji-006                 "A-U-i006+" 4 X)
+         (=>ucs-itaiji-007                 "A-U-i007+" 4 X)
+         (=>ucs-itaiji-009                 "A-U-i009+" 4 X)
          (=>big5-cdp-itaiji-001          "A-CDP-i001-" 4 X)
+         (=>ucs-itaiji-001@iwds-1      "A-IWDSU-i001+" 4 X)
+         (=>big5-cdp@iwds-1               "A-IWDSCDP-" 4 X)
+         (=>big5-cdp@component            "A-compCDP-" 4 X)
+         (=>big5-cdp@cognate               "A-cgnCDP-" 4 X)
          ( =jis-x0208@1978/i1                 "J78i1-" 4 X)
          ( =shinjigen@rev                      "SJG2-" 4 d)
          ( =shinjigen@1ed                      "SJG1-" 4 d)