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

diff --git a/lisp/mule/chinese.el b/lisp/mule/chinese.el
index 44b4512..3edb4aa 100644
--- a/lisp/mule/chinese.el
+++ b/lisp/mule/chinese.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
-;; Copyright (C) 1997 MORIOKA Tomohiko
+;; Copyright (C) 1997,1999,2001,2002 MORIOKA Tomohiko
 
 ;; Keywords: multilingual, Chinese
 
@@ -46,8 +46,10 @@
 (modify-syntax-entry 'chinese-cns11643-5 "w")
 (modify-syntax-entry 'chinese-cns11643-6 "w")
 (modify-syntax-entry 'chinese-cns11643-7 "w")
-(modify-syntax-entry 'chinese-big5-1 "w")
-(modify-syntax-entry 'chinese-big5-2 "w")
+(if (featurep 'utf-2000)
+    (modify-syntax-entry 'chinese-big5 "w")
+  (modify-syntax-entry 'chinese-big5-1 "w")
+  (modify-syntax-entry 'chinese-big5-2 "w"))
 
 (modify-category-entry 'chinese-cns11643-3 ?t)
 (modify-category-entry 'chinese-cns11643-4 ?t)
@@ -174,7 +176,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 +197,33 @@
  "Coding-system of BIG5."
  '(mnemonic "Zh/Big5"))
 
+(when (featurep 'utf-2000)
+  (make-coding-system
+   'big5-er 'big5 "Coding-system of BIG5 with entity-reference."
+   '(mnemonic "Big5r"
+	      charset-g0 ascii
+	      charset-g1 chinese-big5
+	      use-entity-reference t))
+
+  (make-coding-system
+   'big5-eten 'big5 "Coding-system of BIG5-ETEN."
+   '(mnemonic "Big5E"
+	      charset-g0 ascii
+	      charset-g1 chinese-big5-eten))
+  (make-coding-system
+   'big5-eten-er 'big5 "Coding-system of BIG5-ETEN with entity-reference."
+   '(mnemonic "Big5Er"
+	      charset-g0 ascii
+	      charset-g1 chinese-big5-eten
+	      use-entity-reference t))
+
+  (make-coding-system
+   'big5-cdp 'big5 "Coding-system of BIG5 with CDP-extension."
+   '(mnemonic "Big5C"
+	      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 +256,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"))