Mercurial > emacs
comparison lisp/language/china-util.el @ 22987:708271862495
(setup-XXX-environment): Just call set-language-environment. If
they used to do some other jobs than what done by
set-language-environment, those jobs are done in
setup-XXX-environment-internal now.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 10 Aug 1998 06:42:41 +0000 |
parents | 5e0c74e072de |
children | 60eb71a9f901 |
comparison
equal
deleted
inserted
replaced
22986:b5c383369b40 | 22987:708271862495 |
---|---|
26 | 26 |
27 ;;;###autoload | 27 ;;;###autoload |
28 (defun setup-chinese-gb-environment () | 28 (defun setup-chinese-gb-environment () |
29 "Setup multilingual environment (MULE) for Chinese GB2312 users." | 29 "Setup multilingual environment (MULE) for Chinese GB2312 users." |
30 (interactive) | 30 (interactive) |
31 (setup-english-environment) | 31 (set-language-environment "Chinese-GB")) |
32 (set-language-environment-coding-systems "Chinese-GB") | |
33 (setq default-input-method "chinese-py-punct")) | |
34 | 32 |
35 ;;;###autoload | 33 ;;;###autoload |
36 (defun setup-chinese-big5-environment () | 34 (defun setup-chinese-big5-environment () |
37 "Setup multilingual environment (MULE) for Chinese Big5 users." | 35 "Setup multilingual environment (MULE) for Chinese Big5 users." |
38 (interactive) | 36 (interactive) |
39 (setup-english-environment) | 37 (set-language-environment "Chinese-BIG5")) |
40 (set-language-environment-coding-systems "Chinese-BIG5") | |
41 (setq default-input-method "chinese-py-punct-b5")) | |
42 | 38 |
43 ;;;###autoload | 39 ;;;###autoload |
44 (defun setup-chinese-cns-environment () | 40 (defun setup-chinese-cns-environment () |
45 "Setup multilingual environment (MULE) for Chinese CNS11643 family users." | 41 "Setup multilingual environment (MULE) for Chinese CNS11643 family users." |
46 (interactive) | 42 (interactive) |
47 (setup-english-environment) | 43 (set-language-environment "Chinese-CNS")) |
48 (set-language-environment-coding-systems "Chinese-CNS") | |
49 (setq default-input-method "chinese-cns-quick")) | |
50 | 44 |
51 ;; Hz/ZW encoding stuffs | 45 ;; Hz/ZW encoding stuffs |
52 | 46 |
53 ;; HZ is an encoding method for Chinese character set GB2312 used | 47 ;; HZ is an encoding method for Chinese character set GB2312 used |
54 ;; widely in Internet. It is very similar to 7-bit environment of | 48 ;; widely in Internet. It is very similar to 7-bit environment of |