(=ucs@ks): Renamed from `ucs-ks'.

[chise/xemacs-chise.git.1] / lisp / mule / mule-conf.el

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 19c5fe4..bc9450d 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -161,7 +161,7 @@
                  direction     l2r
                  mother        =ucs))
   (define-charset-alias 'ucs-cns '=ucs@cns)
-  (make-charset 'ucs-jis
+  (make-charset '=ucs@jis
                "UCS for JIS"
                `(long-name     "ISO/IEC 10646 for JIS X0208/0212/0213"
                  chars         256
@@ -170,7 +170,8 @@
                  graphic       2
                  direction     l2r
                  mother        =ucs))
-  (make-charset '=ucs-jis-1990
+  (define-charset-alias 'ucs-jis '=ucs@jis)
+  (make-charset '=ucs@jis-1990
                "UCS for JIS:1990"
                `(long-name     "ISO/IEC 10646 for JIS X 0208/0212:1990"
                  chars         256
@@ -179,7 +180,8 @@
                  graphic       2
                  direction     l2r
                  mother        ucs-jis))
-  (make-charset '=ucs-jis-2000
+  (define-charset-alias '=ucs-jis-1990 '=ucs@jis-1990)
+  (make-charset '=ucs@jis-2000
                "UCS for JIS:2000"
                `(long-name     "ISO/IEC 10646 for JIS X 0213:2000"
                  chars         256
@@ -188,7 +190,8 @@
                  graphic       2
                  direction     l2r
                  mother        ucs-jis))
-  (make-charset 'ucs-ks
+  (define-charset-alias '=ucs-jis-2000 '=ucs@jis-2000)
+  (make-charset '=ucs@ks
                "UCS for KS"
                `(long-name     "ISO/IEC 10646 for Korean Standards"
                  chars         256
@@ -197,6 +200,7 @@
                  graphic       2
                  direction     l2r
                  mother        =ucs))
+  (define-charset-alias 'ucs-ks '=ucs@ks)
   (make-charset 'ucs-big5
                "UCS for Big5"
                `(long-name     "ISO/IEC 10646 for Big5"