Mercurial > emacs
changeset 103631:37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
("Chinese-CNS", "Chinese-EUC-TW", "Chinese-GBK"): Add a
setup-funcion to make char-widht-table suitable for respective
environments.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 30 Jun 2009 02:05:05 +0000 |
| parents | a706fbab4da9 |
| children | a4b47cc25ea0 |
| files | lisp/language/chinese.el |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/chinese.el Tue Jun 30 01:52:12 2009 +0000 +++ b/lisp/language/chinese.el Tue Jun 30 02:05:05 2009 +0000 @@ -107,6 +107,9 @@ (set-language-info-alist "Chinese-GB" '((charset chinese-gb2312 chinese-sisheng) (iso639-language . zh) + (setup-function . (lambda () + (use-cjk-char-width-table 'zh_CN))) + (exit-function . use-default-char-width-table) (coding-system chinese-iso-8bit iso-2022-cn chinese-hz) (coding-priority chinese-iso-8bit chinese-big5 iso-2022-cn) (input-method . "chinese-py-punct") @@ -134,6 +137,9 @@ (set-language-info-alist "Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2) (iso639-language . zh) + (setup-function . (lambda () + (use-cjk-char-width-table 'zh_HK))) + (exit-function . use-default-char-width-table) (coding-system chinese-big5 chinese-iso-7bit) (coding-priority chinese-big5 iso-2022-cn chinese-iso-8bit) (input-method . "chinese-py-punct-b5") @@ -186,6 +192,9 @@ chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7) (iso639-language . zh) + (setup-function . (lambda () + (use-cjk-char-width-table 'zh_TW))) + (exit-function . use-default-char-width-table) (coding-system iso-2022-cn euc-tw) (coding-priority iso-2022-cn euc-tw chinese-big5 chinese-iso-8bit) @@ -203,6 +212,9 @@ chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7 chinese-big5-1 chinese-big5-2) (iso639-language . zh) + (setup-function . (lambda () + (use-cjk-char-width-table 'zh_TW))) + (exit-function . use-default-char-width-table) (coding-system euc-tw iso-2022-cn) (coding-priority euc-tw chinese-big5 iso-2022-cn chinese-iso-8bit) @@ -230,6 +242,9 @@ (set-language-info-alist "Chinese-GBK" '((charset chinese-gbk) (iso639-language . zh) + (setup-function . (lambda () + (use-cjk-char-width-table 'zh_CN))) + (exit-function . use-default-char-width-table) (coding-system chinese-gbk) (coding-priority gbk iso-2022-cn chinese-big5 chinese-iso-8bit) ; fixme?