Mercurial > emacs

comparison lisp/language/china-util.el @ 17993:73869115ae0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Most of setup-LANGUAGE-environment functions are moved form LANGUAGE.el to LANG-util.el. These functions now at first call setup-english-environment to reset various values to the defaults.
author Kenichi Handa <handa@m17n.org>
date Wed, 28 May 1997 03:39:03 +0000
parents a3ca5e15c82a
children bd8b521f5218
comparison
equal deleted inserted replaced
17992:191bef5a0922 17993:73869115ae0a
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Code: 25 ;;; Code:
26
27 ;;;###autoload
28 (defun setup-chinese-gb-environment ()
29 "Setup multilingual environment (MULE) for Chinese GB2312 users."
30 (interactive)
31 (setup-english-environment)
32
33 (setq primary-language "Chinese-GB")
34
35 (setq coding-category-iso-8-2 'cn-gb-2312)
36 (setq coding-category-iso-else 'iso-2022-cn)
37 (setq coding-category-big5 'cn-big5)
38
39 (set-coding-priority
40 '(coding-category-iso-7
41 coding-category-iso-else
42 coding-category-iso-8-2
43 coding-category-big5
44 coding-category-iso-8-1
45 coding-category-emacs-mule))
46
47 (setq-default buffer-file-coding-system 'cn-gb-2312)
48 (set-terminal-coding-system-internal 'cn-gb-2312)
49 (set-keyboard-coding-system-internal 'cn-gb-2312)
50 (setq sendmail-coding-system nil
51 rmail-file-coding-system 'iso-2022-cn)
52
53 (setq default-input-method '("Chinese-GB" . "quail-py")))
54
55 ;;;###autoload
56 (defun setup-chinese-big5-environment ()
57 "Setup multilingual environment (MULE) for Chinese Big5 users."
58 (interactive)
59 (setup-english-environment)
60
61 (setq primary-language "Chinese-BIG5")
62
63 (setq coding-category-iso-8-2 'cn-big5)
64 (setq coding-category-iso-else 'iso-2022-cn)
65 (setq coding-category-big5 'cn-big5)
66
67 (set-coding-priority
68 '(coding-category-iso-7
69 coding-category-iso-else
70 coding-category-big5
71 coding-category-iso-8-2
72 coding-category-emacs-mule))
73
74 (setq-default buffer-file-coding-system 'cn-big5)
75 (set-terminal-coding-system-internal 'cn-big5)
76 (set-keyboard-coding-system-internal 'cn-big5)
77 (setq sendmail-coding-system nil
78 rmail-file-coding-system 'iso-2022-cn)
79
80 (setq default-input-method '("Chinese-BIG5" . "quail-py-b5")))
81
82 ;;;###autoload
83 (defun setup-chinese-cns-environment ()
84 "Setup multilingual environment (MULE) for Chinese CNS11643 family users."
85 (interactive)
86 (setup-english-environment)
87
88 (setq primary-language "Chinese-CNS")
89
90 (setq coding-category-iso-else 'iso-2022-cn)
91 (setq coding-category-big5 'cn-big5)
92 (setq coding-category-iso-8-2 'cn-big5)
93
94 (set-coding-priority
95 '(coding-category-iso-7
96 coding-category-iso-else
97 coding-category-iso-8-2
98 coding-category-big5))
99
100 (setq-default buffer-file-coding-system 'iso-2022-cn)
101 (set-terminal-coding-system-internal 'iso-2022-cn)
102 (set-keyboard-coding-system-internal 'iso-2022-cn)
103 (setq sendmail-coding-system nil
104 rmail-file-coding-system 'iso-2022-cn)
105
106 (setq default-input-method '("Chinese-CNS" . "quail-quick-cns")))
26 107
27 ;; Hz/ZW encoding stuffs 108 ;; Hz/ZW encoding stuffs
28 109
29 ;; HZ is an encoding method for Chinese character set GB2312 used 110 ;; HZ is an encoding method for Chinese character set GB2312 used
30 ;; widely in Internet. It is very similar to 7-bit environment of 111 ;; widely in Internet. It is very similar to 7-bit environment of