(=+>ucs@jis/1990): Renamed from `=>ucs@jis/1990'.

(=>ucs@jis/1990): New alias for `=+>ucs@jis/1990'.

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 5c74e49..0ad1765 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -1087,9 +1087,9 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        =>ucs@unicode))
-  (make-charset '=>ucs@jis/1990
-               "UCS Representative characters for JIS X0208/0212:1990"
-               '(long-name     "UCS characters for JIS:1990"
+  (make-charset '=+>ucs@jis
+               "UCS based on Japanese usual unification"
+               '(long-name     "UCS unified abstract glyphs for JP"
                  chars         256
                  dimension     3
                  columns       2
@@ -1097,17 +1097,18 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        =>ucs@jis))
-  (make-charset '=+>ucs@jis
-               "UCS based on Japanese usual unification"
-               '(long-name     "UCS unified abstract glyphs for JP"
+  (define-charset-alias '=>ucs@JP '=+>ucs@jis)
+  (make-charset '=+>ucs@jis/1990
+               "UCS Representative characters for JIS X0208/0212:1990"
+               '(long-name     "UCS characters for JIS:1990"
                  chars         256
                  dimension     3
                  columns       2
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        =>ucs@jis))
-  (define-charset-alias '=>ucs@JP '=+>ucs@jis)
+                 mother        =+>ucs@jis))
+  (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
   (make-charset '=>ucs@ks
                "UCS Representative characters for Korean Standards"
                '(long-name     "UCS characters for KS"