(coded-charset-entity-reference-alist): Add setting for `==ucs@ks'.

[chise/xemacs-chise.git-] / lisp / mule / mule-coding.el

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 0d5b33b..e5d76e1 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -187,8 +187,11 @@
          =decomposition@hanyo-denshi))
 
   (setq coded-charset-entity-reference-alist
-       '(((=adobe-japan1-6     . isolated)    "I-AJ1-" 5 d)
+       '(((=mj                 . isolated)      "I-MJ" 6 d)
+         ((=adobe-japan1-6     . isolated)    "I-AJ1-" 5 d)
+         ( =mj                                    "MJ" 6 d)
          ( =adobe-japan1-6                      "AJ1-" 5 d)
+         (==mj                                  "R-MJ" 6 d)
          (==adobe-japan1-6                    "R-AJ1-" 5 d)
          ((=adobe-japan1-base  . isolated)    "I-AJ1-" 5 d)
          ( =adobe-japan1-base                 "I-AJ1-" 5 d)
@@ -412,6 +415,7 @@
          ( =>gt-k                             "A-GT-K" 5 d)
          ( =>zinbun-oracle                    "A-ZOB-" 4 d)
          (==>ucs@bucs                          "BUCS+" 4 X)
+         ( =>ucs@hanyo-denshi                 "A-HDU+" 4 X)
          ( =>ucs@hanyo-denshi              "A-HD-UCS+" 4 X)
          ( =>ucs@iso                           "A-IU+" 4 X)
          ( =>ucs@unicode                       "A-UU+" 4 X)
@@ -451,6 +455,7 @@
          (==ucs@iso                             "R-U-" 8 X)
          (==ucs@unicode                        "R-UU+" 4 X)
          (==ucs@cns                            "R-CU+" 4 X)
+         (==ucs@ks                             "R-KU+" 4 X)
          (==cns11643-1                         "R-C1-" 4 X)
          (==cns11643-2                         "R-C2-" 4 X)
          (==cns11643-3                         "R-C3-" 4 X)