From 565b46444831dd54899655bc6edeb58c1046a302 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 30 Jun 2009 02:05:05 +0000 Subject: [PATCH] ("Chinese-GB", "Chinese-BIG5") ("Chinese-CNS", "Chinese-EUC-TW", "Chinese-GBK"): Add a setup-funcion to make char-widht-table suitable for respective environments. --- lisp/language/chinese.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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? -- 2.39.2