Mercurial > hg > xemacs-beta

diff lisp/mule/chinese.el @ 357:4711e16a8e49 r21-1-8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-8
author cvs
date Mon, 13 Aug 2007 10:57:04 +0200
parents 4f79e16b1112
children
line wrap: on
line diff
--- a/lisp/mule/chinese.el	Mon Aug 13 10:56:23 2007 +0200
+++ b/lisp/mule/chinese.el	Mon Aug 13 10:57:04 2007 +0200
@@ -200,6 +200,19 @@
 				  . describe-chinese-environment-map))
 		))
 
+(defun setup-chinese-gb-environment ()
+  "Setup multilingual environment (MULE) for Chinese GB2312 users."
+  (interactive)
+  (setup-english-environment)
+  (set-coding-category-system 'iso-8-2 'cn-gb-2312)
+  (set-coding-category-system 'big5 'big5)
+  (set-coding-category-system 'iso-7 'iso-2022-7bit)
+  (set-coding-priority-list
+   '(iso-8-2
+     big5
+     iso-7))
+  (set-default-coding-systems 'cn-gb-2312))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Chinese BIG5 (traditional)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -249,6 +262,19 @@
 				    . describe-chinese-environment-map))
 		  ))
 
+(defun setup-chinese-big5-environment ()
+  "Setup multilingual environment (MULE) for Chinese Big5 users."
+  (interactive)
+  (setup-english-environment)
+  (set-coding-category-system 'big5 'big5)
+  (set-coding-category-system 'iso-8-2 'cn-gb-2312)
+  (set-coding-category-system 'iso-7 'iso-2022-7bit)
+  (set-coding-priority-list
+   '(big5
+     iso-8-2
+     iso-7))
+  (set-default-coding-systems 'big5))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Chinese CNS11643 (traditional)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;