(J97-476D): Unify abstract JX1-476D.

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

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 3a3cf54..434022f 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -4,7 +4,7 @@
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1995 Amdahl Corporation.
 ;; Copyright (C) 1995 Sun Microsystems.
-;; Copyright (C) 1997,1999,2002,2003,2004,2005 MORIOKA Tomohiko
+;; Copyright (C) 1997,1999,2002,2003,2004,2005,2006,2008,2009 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -202,6 +202,7 @@
          ((japanese-jisx0208   . isolated)    "I-J83-" 4 X)
          ((japanese-jisx0213-1 . isolated)    "I-JX1-" 4 X)
          ((japanese-jisx0213-2 . isolated)    "I-JX2-" 4 X)
+         ((=jis-x0213-1@2004   . isolated)    "I-JX3-" 4 X)
          ((japanese-jisx0212   . isolated)    "I-JSP-" 4 X)
          ((japanese-jisx0208-1978 . isolated) "I-J78-" 4 X)
          ((chinese-gb2312      . isolated)     "I-G0-" 4 X)
@@ -238,6 +239,7 @@
          ((ipa                 . isolated) "I-MULE-IPA-" 2 X)
          ((china3-jef          . isolated)    "I-JC3-" 4 X)
          ( ideograph-gt                          "GT-" 5 d)
+         (<=>gt                                 "aGT-" 5 d)
          ( =zinbun-oracle                       "ZOB-" 4 d)
          ( =ruimoku-v6                         "RUI6-" 4 X)
          ( chinese-big5-cdp                     "CDP-" 4 X)
@@ -262,8 +264,14 @@
          ( ideograph-hanziku-2                 "HZK2-" 4 X)
          ( japanese-jisx0208-1990               "J90-" 4 X)
          ( japanese-jisx0208                    "J83-" 4 X)
-         ( japanese-jisx0213-1                  "JX1-" 4 X)
-         ( japanese-jisx0213-2                  "JX2-" 4 X)
+         ( =jis-x0213-1@2000                    "JX1-" 4 X)
+         ( =jis-x0213-2                         "JX2-" 4 X)
+         ( =jis-x0213-1@2004                    "JX3-" 4 X)
+         (=>>jis-x0213-1@2000                  "aJX1-" 4 X)
+         (=>>jis-x0213-1@2004                  "aJX3-" 4 X)
+         (<=>jis-x0208@1997                     "J97-" 4 X)
+         (<=>jis-x0213-1@2000                 "A-JX1-" 4 X)
+         (<=>jis-x0213-1@2004                 "A-JX3-" 4 X)
          ( japanese-jisx0212                    "JSP-" 4 X)
          ( japanese-jisx0208-1978               "J78-" 4 X)
          ( chinese-cns11643-1                    "C1-" 4 X)
@@ -312,8 +320,9 @@
          ( =ucs@cns                              "CU-" 8 X)
          ( =ucs@ks                               "KU+" 4 X)
          ( =ucs@ks                               "KU-" 8 X)
-         ( =jis-x0208@1997                      "J97-" 4 X)
          ( =jis-x0208@1978/i1                 "J78i1-" 4 X)
+         ( =shinjigen@rev                      "SJG2-" 4 d)
+         ( =shinjigen@1ed                      "SJG1-" 4 d)
          ))
 
   (make-coding-system