From: tomo <tomo>
Date: Tue, 18 Oct 2011 20:22:24 +0000 (+0000)
Subject: (=+>ucs@jis/1990): Renamed from `=>ucs@jis/1990'.
X-Git-Tag: r21-4-22-chise-0_25-11^20~501
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6a5df82dac77d6bc6f5151e0e29315c05a4f96d2;p=chise%2Fxemacs-chise.git-

(=+>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
--- 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"