(coded-charset-entity-reference-alist): Add setting for

`===hanyo-denshi/ks', `===jis-x0208' and `===jis-x0213-1'; use
"&R-J00X1-hhhh;" instead of "&R-JX1-hhhh;" as the entity-reference for
`===jis-x0213-1@2000'; use "&R-JX1-hhhh;" as the entity-reference for
`===jis-x0213-1'.

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 0221bdc..5af9f33 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -294,6 +294,7 @@
          (===hanyo-denshi/ib                "R-HD-IB-" 4 X)
          (===hanyo-denshi/ip                "R-HD-IP-" 4 X)
          (===hanyo-denshi/jt                "R-HD-JT-" 4 X)
+         (===hanyo-denshi/ks                "R-HD-KS-" 6 d)
          ( =gt                                   "GT-" 5 d)
          (==gt                                "g2-GT-" 5 d)
          (===gt                                "R-GT-" 5 d)
@@ -304,14 +305,16 @@
          ( =jis-x0212                           "JSP-" 4 X)
          (==jis-x0208@1990                   "g2-J90-" 4 X)
          (===jis-x0208@1990                   "R-J90-" 4 X)
+         (===jis-x0208                         "R-J0-" 4 X)
          (==jis-x0212                        "g2-JSP-" 4 X)
          (==jis-x0213-1@2000                 "g2-JX1-" 4 X)
          (==jis-x0213-2                      "g2-JX2-" 4 X)
          (==jis-x0213-1@2004                 "g2-JX3-" 4 X)
-         (===jis-x0213-1@2000                 "R-JX1-" 4 X)
+         (===jis-x0213-1                      "R-JX1-" 4 X)
          (===jis-x0213-2                      "R-JX2-" 4 X)
          (===jis-x0213-1@2004                 "R-JX3-" 4 X)
          (===jis-x0212                        "R-JSP-" 4 X)
+         (===jis-x0213-1@2000               "R-J00X1-" 4 X)
          ( =cns11643-1                           "C1-" 4 X)
          ( chinese-cns11643-2                    "C2-" 4 X)
          ( chinese-cns11643-3                    "C3-" 4 X)