X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fchinese.el;h=e8fa999296e54b294206c535833a82500774f261;hb=92354b7e072f95e2c367254b96abe357adc153fb;hp=44b4512587aa5b04bac7fc02553d85e2a9ee2b2a;hpb=1d9bc86590766427e2431876a50d78206a99edd5;p=chise%2Fxemacs-chise.git-

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"))