diff options
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? |