(chinese-gbk, gbk, cp936, windows-936): New

coding systems.
("Chinese-GBK"): New environment.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f1e54b8496c94f81aeb11fa42e4e3d15f95e8d47..e32ba01332e4cec8b51c5cef94ced7a5a1e2cd12 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,15 @@
+2002-06-13  Dave Love  <fx@gnu.org>
+
+       * language/chinese.el (chinese-gbk, gbk, cp936, windows-936): New
+       coding systems.
+       ("Chinese-GBK"): New environment.
+
 2002-06-12  Dave Love  <fx@gnu.org>
 
+       * language/chinese.el (chinese-gbk, gbk, cp936, windows-936): New
+       coding systems.
+       ("Chinese-GBK"): New environment.
+
        * language/thai-util.el: Remove redundant unicodes in
        category-setting.
 

diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index be28de5f317959dc8d30968ced48f7ff74783282..e6201cef970de479fd2f3dec0d33526233fc1e04 100644 (file)
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -173,7 +173,29 @@ Support for Chinese CNS character sets.  Note that EUC-TW coding system
 accepts Big5 for input also (which is then converted to CNS)."))
  '("Chinese"))
 
-;; Fixme: GBK coding system
+;;; Chinese GBK
+
+(define-coding-system 'chinese-gbk
+  "GBK encoding for Chinese (MIME:GBK)."
+  :coding-type 'charset
+  :mnemonic ?c
+  :charset-list '(chinese-gbk)
+  :mime-charset 'gbk)
+(define-coding-system-alias 'gbk 'chinese-gbk)
+(define-coding-system-alias 'cp936 'chinese-gbk)
+(define-coding-system-alias 'windows-936 'chinese-gbk)
+
+(set-language-info-alist
+ "Chinese-GBK" '((charset chinese-gbk)
+                 (coding-system chinese-gbk)
+                 (coding-priority gbk iso-2022-cn chinese-big5
+                                  chinese-iso-8bit) ; fixme?
+                 (input-method . "chinese-py-punct") ; fixme?
+                 (features china-util)
+                 (documentation . "Support for Chinese GBK character set."))
+ '("Chinese"))
+
+;; Fixme: add HKSCS, GB18030
 
 (provide 'chinese)