(=cns11643-7): Renamed from `chinese-cns11643-7'.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index a68ef82..6837318 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -25,6 +25,16 @@
 
 ;;; Code:
 
+(define-charset-alias 'japanese-jisx0208-1978  '=jis-x0208-1978)
+(define-charset-alias 'chinese-gb2312          '=gb2312)
+(define-charset-alias 'japanese-jisx0208       '=jis-x0208-1983)
+(define-charset-alias 'korean-ksc5601          '=ks-x1001)
+(define-charset-alias 'japanese-jisx0212       '=jis-x0212)
+(define-charset-alias 'chinese-cns11643-1      '=cns11643-1)
+(define-charset-alias 'chinese-cns11643-2      '=cns11643-2)
+(define-charset-alias 'chinese-gb12345         '=gb12345)
+(define-charset-alias 'chinese-big5            '=big5)
+
 ;; PinYin-ZhuYin
 (make-charset 'sisheng "PinYin-ZhuYin"
              '(registry "sisheng_cwnn\\|OMRON_UDC_ZH"
@@ -63,15 +73,15 @@
 ;; ISO-IR-165 (CCITT Extended GB)
 ;;    It is based on CCITT Recommendation T.101, includes GB 2312-80 +
 ;;    GB 8565-88 table A4 + 293 characters.
-(make-charset
- 'chinese-isoir165
- "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
- `(iso-ir 165
-   registry "isoir165"
-   dimension 2
-   chars 94
-   final ?E
-   graphic 0))
+(make-charset '=iso-ir165
+             "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
+             '(iso-ir 165
+                      dimension 2
+                      chars 94
+                      final ?E
+                      registry "isoir165"
+                      graphic 0))
+(define-charset-alias 'chinese-isoir165 '=iso-ir165)
 
 ;; CNS11643 Plane3 thru Plane7
 ;; These represent more and more obscure Chinese characters.
@@ -92,11 +102,16 @@
         final ,final
         graphic 0))
       ))
-  (make-chinese-cns11643-charset 'chinese-cns11643-3 183 "3" ?I)
-  (make-chinese-cns11643-charset 'chinese-cns11643-4 184 "4" ?J)
-  (make-chinese-cns11643-charset 'chinese-cns11643-5 185 "5" ?K)
-  (make-chinese-cns11643-charset 'chinese-cns11643-6 186 "6" ?L)
-  (make-chinese-cns11643-charset 'chinese-cns11643-7 187 "7" ?M)
+  (make-chinese-cns11643-charset '=cns11643-3 183 "3" ?I)
+  (make-chinese-cns11643-charset '=cns11643-4 184 "4" ?J)
+  (make-chinese-cns11643-charset '=cns11643-5 185 "5" ?K)
+  (make-chinese-cns11643-charset '=cns11643-6 186 "6" ?L)
+  (make-chinese-cns11643-charset '=cns11643-7 187 "7" ?M)
+  (define-charset-alias 'chinese-cns11643-3    '=cns11643-3)
+  (define-charset-alias 'chinese-cns11643-4    '=cns11643-4)
+  (define-charset-alias 'chinese-cns11643-5    '=cns11643-5)
+  (define-charset-alias 'chinese-cns11643-6    '=cns11643-6)
+  (define-charset-alias 'chinese-cns11643-7    '=cns11643-7)
   )
 
 ;; JIS X 0213:2000