Mercurial > emacs

comparison lisp/language/chinese.el @ 18309:bd8b521f5218

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Provide XXX-util instead of language/XXX-util. Delete local variable declartion. Delete the code of calling register-input-method form all files under this directory.
author Kenichi Handa <handa@m17n.org>
date Wed, 18 Jun 1997 13:06:17 +0000
parents 0745f30aec66
children 8b4a66c66dd6
comparison
equal deleted inserted replaced
18308:b8622afb8a6e 18309:bd8b521f5218
93 (insert from) 93 (insert from)
94 (insert-buffer-substring buf from to)) 94 (insert-buffer-substring buf from to))
95 (encode-hz-region 1 (point-max)) 95 (encode-hz-region 1 (point-max))
96 nil)) 96 nil))
97 97
98 (register-input-method
99 "Chinese-GB" '("quail-ccdospy" quail-use-package "quail/ccdospy"))
100 (register-input-method
101 "Chinese-GB" '("quail-ctlau" quail-use-package "quail/ctlau"))
102 (register-input-method
103 "Chinese-GB" '("quail-punct" quail-use-package "quail/punct"))
104 (register-input-method
105 "Chinese-GB" '("quail-qj" quail-use-package "quail/qj"))
106 (register-input-method
107 "Chinese-GB" '("quail-sw" quail-use-package "quail/sw"))
108 (register-input-method
109 "Chinese-GB" '("quail-ziranma" quail-use-package "quail/ziranma"))
110 (register-input-method
111 "Chinese-GB" '("quail-tonepy" quail-use-package "quail/tonepy"))
112 (register-input-method
113 "Chinese-GB" '("quail-py" quail-use-package "quail/py"))
114
115 (set-language-info-alist 98 (set-language-info-alist
116 "Chinese-GB" '((setup-function . (setup-chinese-gb-environment 99 "Chinese-GB" '((setup-function . (setup-chinese-gb-environment
117 . setup-chinese-environment-map)) 100 . setup-chinese-environment-map))
118 (charset . (chinese-gb2312 chinese-sisheng)) 101 (charset . (chinese-gb2312 chinese-sisheng))
119 (coding-system 102 (coding-system
149 "CCL program to encode a Big5 code to code point of Big5 font.") 132 "CCL program to encode a Big5 code to code point of Big5 font.")
150 133
151 (setq font-ccl-encoder-alist 134 (setq font-ccl-encoder-alist
152 (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist)) 135 (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist))
153 136
154 (register-input-method
155 "Chinese-BIG5" '("quail-qj-b5" quail-use-package "quail/qj-b5"))
156 (register-input-method
157 "Chinese-BIG5" '("quail-zozy" quail-use-package "quail/zozy"))
158 (register-input-method
159 "Chinese-BIG5" '("quail-tsangchi-b5" quail-use-package "quail/tsangchi-b5"))
160 (register-input-method
161 "Chinese-BIG5" '("quail-py-b5" quail-use-package "quail/py-b5"))
162 (register-input-method
163 "Chinese-BIG5" '("quail-quick-b5" quail-use-package "quail/quick-bt"))
164 (register-input-method
165 "Chinese-BIG5" '("quail-etzy" quail-use-package "quail/etzy"))
166 (register-input-method
167 "Chinese-BIG5" '("quail-ecdict" quail-use-package "quail/ecdict"))
168 (register-input-method
169 "Chinese-BIG5" '("quail-ctlaub" quail-use-package "quail/ctlaub"))
170 (register-input-method
171 "Chinese-BIG5" '("quail-array30" quail-use-package "quail/array30"))
172 (register-input-method
173 "Chinese-BIG5" '("quail-4corner" quail-use-package "quail/4corner"))
174
175 (set-language-info-alist 137 (set-language-info-alist
176 "Chinese-BIG5" '((setup-function . (setup-chinese-big5-environment 138 "Chinese-BIG5" '((setup-function . (setup-chinese-big5-environment
177 . setup-chinese-environment-map)) 139 . setup-chinese-environment-map))
178 (charset . (chinese-big5-1 chinese-big5-2)) 140 (charset . (chinese-big5-1 chinese-big5-2))
179 (coding-system . (chinese-big5 chinese-iso-7bit)) 141 (coding-system . (chinese-big5 chinese-iso-7bit))
184 146
185 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 147 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
186 ;; Chinese CNS11643 (traditional) 148 ;; Chinese CNS11643 (traditional)
187 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 149 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
188 150
189 (register-input-method
190 "Chinese-CNS" '("quail-quick-cns" quail-use-package "quail/quick-cns"))
191 (register-input-method
192 "Chinese-CNS" '("quail-tsangchi-cns" quail-use-package "quail/tsangchi-cns"))
193
194 (set-language-info-alist 151 (set-language-info-alist
195 "Chinese-CNS" '((setup-function . (setup-chinese-cns-environment 152 "Chinese-CNS" '((setup-function . (setup-chinese-cns-environment
196 . setup-chinese-environment-map)) 153 . setup-chinese-environment-map))
197 (charset . (chinese-cns11643-1 chinese-cns11643-2 154 (charset . (chinese-cns11643-1 chinese-cns11643-2
198 chinese-cns11643-3 chinese-cns11643-4 155 chinese-cns11643-3 chinese-cns11643-4