("Chinese-EUC-TW"): New.

diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index 7d0f85ac902278d0371fe3c024c86850b3240e8a..6f67f66d129fa37e69d43d1b21ad1c91a2ebf9d2 100644 (file)
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -321,10 +321,26 @@ Big5 encoding is accepted for input also (which is then converted to CNS)."
                 (features china-util)
                 (input-method . "chinese-cns-quick")
                 (documentation . "\
-Support for Chinese CNS character sets.  Note that EUC-TW coding system
+Support for Chinese CNS character sets.  Note that the EUC-TW coding system
 accepts Big5 for input also (which is then converted to CNS)."))
  '("Chinese"))
 
+(set-language-info-alist
+ "Chinese-EUC-TW" '((charset chinese-cns11643-1 chinese-cns11643-2
+                            chinese-cns11643-3 chinese-cns11643-4
+                            chinese-cns11643-5 chinese-cns11643-6
+                            chinese-cns11643-7 chinese-big5-1 chinese-big5-2)
+                   (coding-system euc-tw iso-2022-cn)
+                   (coding-priority euc-tw chinese-big5 iso-2022-cn
+                                    chinese-iso-8bit)
+                   (features china-util)
+                   (input-method . "chinese-cns-quick")
+                   (documentation . "\
+Support for Chinese, prefering the EUC-TW character set.  Note that
+the EUC-TW coding system accepts Big5 for input also (which is then
+converted to CNS)."))
+ '("Chinese"))
+
 (provide 'chinese)
 
 ;;; chinese.el ends here