Mercurial > emacs

comparison lisp/language/china-util.el @ 18793:f98c1cb6b807

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-chinese-gb-environment): Adjusted for the change of coding category names. Set default-input-method to chinese-py-punct. (setup-chinese-big5-environment): Set default-input-method to chinese-py-punct-b5. (setup-chinese-cns-environment): Set default-input-method correctly.
author Kenichi Handa <handa@m17n.org>
date Tue, 15 Jul 1997 08:22:18 +0000
parents 62e17ab4e33e
children 6835f9c00ff5
comparison
equal deleted inserted replaced
18792:7509c58538a0 18793:f98c1cb6b807
31 (setup-english-environment) 31 (setup-english-environment)
32 32
33 (setq primary-language "Chinese-GB") 33 (setq primary-language "Chinese-GB")
34 34
35 (setq coding-category-iso-8-2 'chinese-iso-8bit) 35 (setq coding-category-iso-8-2 'chinese-iso-8bit)
36 (setq coding-category-iso-else 'chinese-iso-7bit) 36 (setq coding-category-iso-7-else 'chinese-iso-7bit)
37 (setq coding-category-big5 'chinese-big5) 37 (setq coding-category-big5 'chinese-big5)
38 38
39 (set-coding-priority 39 (set-coding-priority
40 '(coding-category-iso-7 40 '(coding-category-iso-7
41 coding-category-iso-else 41 coding-category-iso-7-else
42 coding-category-iso-8-2 42 coding-category-iso-8-2
43 coding-category-big5 43 coding-category-big5
44 coding-category-iso-8-1 44 coding-category-iso-8-1
45 coding-category-emacs-mule)) 45 coding-category-emacs-mule
46 coding-category-iso-8-else))
46 47
47 (setq-default buffer-file-coding-system 'chinese-iso-8bit) 48 (setq-default buffer-file-coding-system 'chinese-iso-8bit)
48 (set-terminal-coding-system-internal 'chinese-iso-8bit) 49 (set-terminal-coding-system-internal 'chinese-iso-8bit)
49 (set-keyboard-coding-system-internal 'chinese-iso-8bit) 50 (set-keyboard-coding-system-internal 'chinese-iso-8bit)
50 (setq sendmail-coding-system nil 51 (setq sendmail-coding-system nil
51 rmail-file-coding-system 'chinese-iso-7bit) 52 rmail-file-coding-system 'chinese-iso-7bit)
52 53
53 (setq default-input-method '("Chinese-GB" . "chinese-py"))) 54 (setq default-input-method "chinese-py-punct"))
54 55
55 ;;;###autoload 56 ;;;###autoload
56 (defun setup-chinese-big5-environment () 57 (defun setup-chinese-big5-environment ()
57 "Setup multilingual environment (MULE) for Chinese Big5 users." 58 "Setup multilingual environment (MULE) for Chinese Big5 users."
58 (interactive) 59 (interactive)
59 (setup-english-environment) 60 (setup-english-environment)
60 61
61 (setq primary-language "Chinese-BIG5") 62 (setq primary-language "Chinese-BIG5")
62 63
63 (setq coding-category-iso-8-2 'chinese-big5) 64 (setq coding-category-iso-8-2 'chinese-big5)
64 (setq coding-category-iso-else 'chinese-iso-7bit) 65 (setq coding-category-iso-7-else 'chinese-iso-7bit)
65 (setq coding-category-big5 'chinese-big5) 66 (setq coding-category-big5 'chinese-big5)
66 67
67 (set-coding-priority 68 (set-coding-priority
68 '(coding-category-iso-7 69 '(coding-category-iso-7
69 coding-category-iso-else 70 coding-category-iso-7-else
70 coding-category-big5 71 coding-category-big5
71 coding-category-iso-8-2 72 coding-category-iso-8-2
72 coding-category-emacs-mule)) 73 coding-category-emacs-mule
74 coding-category-iso-8-else))
73 75
74 (setq-default buffer-file-coding-system 'chinese-big5) 76 (setq-default buffer-file-coding-system 'chinese-big5)
75 (set-terminal-coding-system-internal 'chinese-big5) 77 (set-terminal-coding-system-internal 'chinese-big5)
76 (set-keyboard-coding-system-internal 'chinese-big5) 78 (set-keyboard-coding-system-internal 'chinese-big5)
77 (setq sendmail-coding-system nil 79 (setq sendmail-coding-system nil
78 rmail-file-coding-system 'chienese-iso-7bit) 80 rmail-file-coding-system 'chienese-iso-7bit)
79 81
80 (setq default-input-method '("Chinese-BIG5" . "chinese-b5-py"))) 82 (setq default-input-method "chinese-py-punct-b5"))
81 83
82 ;;;###autoload 84 ;;;###autoload
83 (defun setup-chinese-cns-environment () 85 (defun setup-chinese-cns-environment ()
84 "Setup multilingual environment (MULE) for Chinese CNS11643 family users." 86 "Setup multilingual environment (MULE) for Chinese CNS11643 family users."
85 (interactive) 87 (interactive)
86 (setup-english-environment) 88 (setup-english-environment)
87 89
88 (setq primary-language "Chinese-CNS") 90 (setq primary-language "Chinese-CNS")
89 91
90 (setq coding-category-iso-else 'chinese-iso-7bit) 92 (setq coding-category-iso-7-else 'chinese-iso-7bit)
91 (setq coding-category-big5 'chinese-big5) 93 (setq coding-category-big5 'chinese-big5)
92 (setq coding-category-iso-8-2 'chinese-big5) 94 (setq coding-category-iso-8-2 'chinese-big5)
93 95
94 (set-coding-priority 96 (set-coding-priority
95 '(coding-category-iso-7 97 '(coding-category-iso-7
96 coding-category-iso-else 98 coding-category-iso-7-else
97 coding-category-iso-8-2 99 coding-category-iso-8-2
98 coding-category-big5)) 100 coding-category-big5
101 coding-category-iso-7-else))
99 102
100 (setq-default buffer-file-coding-system 'chinese-iso-7bit) 103 (setq-default buffer-file-coding-system 'chinese-iso-7bit)
101 (set-terminal-coding-system-internal 'chinese-iso-7bit) 104 (set-terminal-coding-system-internal 'chinese-iso-7bit)
102 (set-keyboard-coding-system-internal 'chinese-iso-7bit) 105 (set-keyboard-coding-system-internal 'chinese-iso-7bit)
103 (setq sendmail-coding-system nil 106 (setq sendmail-coding-system nil
104 rmail-file-coding-system 'chinese-iso-7bit) 107 rmail-file-coding-system 'chinese-iso-7bit)
105 108
106 (setq default-input-method '("Chinese-CNS" . "quail-quick-cns"))) 109 (setq default-input-method "quail-quick-cns"))
107 110
108 ;; Hz/ZW encoding stuffs 111 ;; Hz/ZW encoding stuffs
109 112
110 ;; HZ is an encoding method for Chinese character set GB2312 used 113 ;; HZ is an encoding method for Chinese character set GB2312 used
111 ;; widely in Internet. It is very similar to 7-bit environment of 114 ;; widely in Internet. It is very similar to 7-bit environment of