Mercurial > emacs

changeset 88764:2ea3c1b5c30b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(chinese-gbk, gbk, cp936, windows-936): New coding systems. ("Chinese-GBK"): New environment.
author Dave Love <fx@gnu.org>
date Thu, 13 Jun 2002 17:31:56 +0000
parents 78a0b89ce5d6
children 0604a2c8ee81
files lisp/language/chinese.el
diffstat 1 files changed, 23 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/chinese.el	Thu Jun 13 11:39:08 2002 +0000
+++ b/lisp/language/chinese.el	Thu Jun 13 17:31:56 2002 +0000
@@ -173,7 +173,29 @@
 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)