From: tomo <tomo>
Date: Tue, 16 Oct 2001 07:15:32 +0000 (+0000)
Subject: (big5-cdp): New coding-system in XEmacs UTF-2000.
X-Git-Tag: r21-2-41-utf-2000-0_18-1~187
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=de89cc3308e15da3098ac5e572f9b510f4e01032;p=chise%2Fxemacs-chise.git.1

(big5-cdp): New coding-system in XEmacs UTF-2000.
---

diff --git a/lisp/mule/chinese.el b/lisp/mule/chinese.el
index 44b4512..e8fa999 100644
--- a/lisp/mule/chinese.el
+++ b/lisp/mule/chinese.el
@@ -174,7 +174,7 @@
 		(coding-priority cn-gb-2312 big5 iso-2022-7bit)
 		(input-method . "chinese-py-punct")
 		(features china-util)
-		(sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B)	$ADc:C(B")
+		(sample-text . "Chinese ($BCf$AND(B,$BIaDL$A;0(B,$A::So(B)	$(D0_$B9%(B")
 		(documentation . "Support for Chinese GB2312 character set."))
  '("Chinese"))
 
@@ -195,6 +195,13 @@
  "Coding-system of BIG5."
  '(mnemonic "Zh/Big5"))
 
+(if (featurep 'utf-2000)
+    (make-coding-system
+     'big5-cdp 'big5 "Coding-system of BIG5."
+     '(mnemonic "Zh/Big5"
+		charset-g0 ascii
+		charset-g1 chinese-big5-cdp)))
+
 ;; (define-coding-system-alias 'big5 'chinese-big5)
 ;; (define-coding-system-alias 'cn-big5 'chinese-big5)
 
@@ -227,7 +234,7 @@
 		  (coding-priority big5 cn-gb-2312 iso-2022-7bit)
 		  (input-method . "chinese-py-punct-b5")
 		  (features china-util)
-		  (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B)	$(0*/=((B, $(0+$)p(B")
+		  (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B)	$(0*/=((B, $(D0_$(0)p(B")
 		  (documentation . "Support for Chinese Big5 character set."))
  '("Chinese"))