projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Sync up with r21-4-11-chise-0_21-=daikanwa-rev1+2.
[chise/xemacs-chise.git]
/
lisp
/
mule
/
chinese.el
diff --git
a/lisp/mule/chinese.el
b/lisp/mule/chinese.el
index
a47b74c
..
e8fa999
100644
(file)
--- 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)
(coding-priority cn-gb-2312 big5 iso-2022-7bit)
(input-method . "chinese-py-punct")
(features china-util)
- (sample-text . "Chinese (
\e
$AVPND
\e
(B,
\e
$AFUM(;0
\e
(B,
\e
$A::So
\e
(B)
\e
$ADc:C
\e
(B")
+ (sample-text . "Chinese (
\e
$BCf
\e
$AND
\e
(B,
\e
$BIaDL
\e
$A;0
\e
(B,
\e
$A::So
\e
(B)
\e
$(D0_
\e
$B9%
\e
(B")
(documentation . "Support for Chinese GB2312 character set."))
'("Chinese"))
(documentation . "Support for Chinese GB2312 character set."))
'("Chinese"))
@@
-195,6
+195,13
@@
"Coding-system of BIG5."
'(mnemonic "Zh/Big5"))
"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)
;; (define-coding-system-alias 'big5 'chinese-big5)
;; (define-coding-system-alias 'cn-big5 'chinese-big5)
@@
-218,8
+225,8
@@
;; (setq font-ccl-encoder-alist
;; (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist))
;; (setq font-ccl-encoder-alist
;; (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist))
-(set-charset-ccl-program 'chinese-big5-1 ccl-encode-big5-font)
-(set-charset-ccl-program 'chinese-big5-2 ccl-encode-big5-font)
+(set-charset-ccl-program 'chinese-big5-1 'ccl-encode-big5-font)
+(set-charset-ccl-program 'chinese-big5-2 'ccl-encode-big5-font)
(set-language-info-alist
"Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2)
(set-language-info-alist
"Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2)
@@
-227,7
+234,7
@@
(coding-priority big5 cn-gb-2312 iso-2022-7bit)
(input-method . "chinese-py-punct-b5")
(features china-util)
(coding-priority big5 cn-gb-2312 iso-2022-7bit)
(input-method . "chinese-py-punct-b5")
(features china-util)
- (sample-text . "Cantonese (
\e
$(0GnM$
\e
(B,
\e
$(0N]0*Hd
\e
(B)
\e
$(0*/=(
\e
(B,
\e
$(0+$)p
\e
(B")
+ (sample-text . "Cantonese (
\e
$(0GnM$
\e
(B,
\e
$(0N]0*Hd
\e
(B)
\e
$(0*/=(
\e
(B,
\e
$(D0_
\e
$(0)p
\e
(B")
(documentation . "Support for Chinese Big5 character set."))
'("Chinese"))
(documentation . "Support for Chinese Big5 character set."))
'("Chinese"))