(=iso-ir165): Define to inherit from `=gb2312' in XEmacs CHISE.

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index f518582..4144f78 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -73,15 +73,26 @@
 ;; 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 '=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)
+(if (featurep 'utf-2000)
+    (progn
+      (make-charset '=iso-ir165
+                   "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
+                   '(iso-ir 165
+                            dimension 2
+                            chars 94
+                            mother =gb2312
+                            final ?E
+                            registry "isoir165"
+                            graphic 0))
+      (define-charset-alias 'chinese-isoir165 '=iso-ir165))
+  (make-charset 'chinese-isoir165
+               "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
+               '(iso-ir 165
+                        dimension 2
+                        chars 94
+                        final ?E
+                        registry "isoir165"
+                        graphic 0)))
 
 ;; CNS11643 Plane3 thru Plane7
 ;; These represent more and more obscure Chinese characters.