From: tomo <tomo>
Date: Tue, 5 Aug 2003 04:17:29 +0000 (+0000)
Subject: (=iso-ir165): Define to inherit from `=gb2312' in XEmacs CHISE.
X-Git-Tag: r21-4-12-chise-0_21-o-=iso-ir165^2~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cdd3e70d08b25248b6490838b1897c1c527cbab6;p=chise%2Fxemacs-chise.git-

(=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
--- 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.