diff options
| author | Kenichi Handa <handa@m17n.org> | 2009-06-30 02:05:05 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2009-06-30 02:05:05 +0000 |
| commit | 565b46444831dd54899655bc6edeb58c1046a302 (patch) | |
| tree | 225b788aeb2bfab1561ef0f2e81a10942ae12c0d /lisp/language | |
| parent | 99b070c5fa2856a644e36e5984a7d61f64bf2d9c (diff) | |
| download | emacs-565b46444831dd54899655bc6edeb58c1046a302.tar.gz emacs-565b46444831dd54899655bc6edeb58c1046a302.tar.bz2 emacs-565b46444831dd54899655bc6edeb58c1046a302.zip | |
("Chinese-GB", "Chinese-BIG5")
("Chinese-CNS", "Chinese-EUC-TW", "Chinese-GBK"): Add a
setup-funcion to make char-widht-table suitable for respective
environments.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/chinese.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el index 9a6aa51c963..66136035714 100644 --- a/lisp/language/chinese.el +++ b/lisp/language/chinese.el @@ -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 @@ accepts Big5 for input also (which is then converted to CNS).")) 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 @@ converted to CNS).")) (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? |