From deaaec9f79f7564112796b6e4ba76283069c3037 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 9 Mar 2003 16:48:32 +0000
Subject: [PATCH] `ucs' is renamed to `=ucs'. (ucs): New alias for `=ucs' when
 `utf-2000' is provided.

---
 lisp/mule/mule-conf.el |   11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 9beb33c..5403694 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -139,6 +139,7 @@
   )
 
 (when (featurep 'utf-2000)
+  (define-charset-alias 'ucs '=ucs)
   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208-1990)
   (make-charset 'ucs-gb
 		"UCS for GB"
@@ -148,7 +149,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	ucs))
+		  mother	=ucs))
   (make-charset 'ucs-cns
 		"UCS for CNS"
 		`(long-name	"ISO/IEC 10646 for CNS 11643"
@@ -157,7 +158,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	ucs))
+		  mother	=ucs))
   (make-charset 'ucs-jis
 		"UCS for JIS"
 		`(long-name	"ISO/IEC 10646 for JIS X0208/0212/0213"
@@ -166,7 +167,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	ucs))
+		  mother	=ucs))
   (make-charset '=ucs-jis-1990
 		"UCS for JIS:1990"
 		`(long-name	"ISO/IEC 10646 for JIS X 0208/0212:1990"
@@ -193,7 +194,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	ucs))
+		  mother	=ucs))
   (make-charset 'ucs-big5
 		"UCS for Big5"
 		`(long-name	"ISO/IEC 10646 for Big5"
@@ -202,7 +203,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	ucs))
+		  mother	=ucs))
 
   (make-charset 'ideograph-daikanwa-2
 		"Daikanwa Rev."
-- 
1.7.10.4