From cdd3e70d08b25248b6490838b1897c1c527cbab6 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 5 Aug 2003 04:17:29 +0000 Subject: [PATCH] (=iso-ir165): Define to inherit from `=gb2312' in XEmacs CHISE. --- lisp/mule/mule-conf.el | 29 ++++++++++++++++++++--------- 1 file changed, 20 insertions(+), 9 deletions(-) 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. -- 1.7.10.4