Mercurial > emacs

changeset 89163:a241b561f498

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(chinese-gb18030, gb18030) ("Chinese-GB18030"): New.
author Dave Love <fx@gnu.org>
date Sun, 06 Oct 2002 16:22:40 +0000
parents c50ec78a847f
children 3c5c3d139eab
files lisp/language/chinese.el
diffstat 1 files changed, 29 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/chinese.el	Sun Oct 06 16:12:56 2002 +0000
+++ b/lisp/language/chinese.el	Sun Oct 06 16:22:40 2002 +0000
@@ -187,15 +187,37 @@
 
 (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."))
+		 (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
+;;; Chinese GB18030
+
+(define-coding-system 'chinese-gb18030
+  "GB18030 encoding for Chinese (MIME:GB18030)."
+  :coding-type 'charset
+  :mnemonic ?c
+  :charset-list '(chinese-gb18030)
+  :mime-charset 'gb18030
+  )
+(define-coding-system-alias 'gb18030 'chinese-gb18030)
+
+(set-language-info-alist
+ "Chinese-GB18030" '((charset chinese-gb18030)
+		     (coding-system chinese-gb18030)
+		     (coding-priority gb18030 gbk iso-2022-cn chinese-big5
+				      chinese-iso-8bit) ; fixme?
+		     (input-method . "chinese-py-punct") ; fixme?
+		     (features china-util)
+		     (documentation
+		      . "Support for Chinese GB18030 character set."))
+ '("Chinese"))
+
+;; Fixme: add HKSCS
 
 (provide 'chinese)