Mercurial > emacs
comparison lisp/language/european.el @ 18309:bd8b521f5218
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 | 7ebbc72852df |
children | 8b4a66c66dd6 |
comparison
equal
deleted
inserted
replaced
18308:b8622afb8a6e | 18309:bd8b521f5218 |
---|---|
74 nil ascii-eol ascii-cntl)) | 74 nil ascii-eol ascii-cntl)) |
75 | 75 |
76 (define-coding-system-alias 'iso-latin-1 'iso-8859-1) | 76 (define-coding-system-alias 'iso-latin-1 'iso-8859-1) |
77 (define-coding-system-alias 'iso-latin-1 'ctext) | 77 (define-coding-system-alias 'iso-latin-1 'ctext) |
78 | 78 |
79 (register-input-method "Latin-1" | |
80 '("quail-latin-1" quail-use-package "quail/latin")) | |
81 | |
82 (defun setup-latin1-environment () | 79 (defun setup-latin1-environment () |
83 "Set up multilingual environment (MULE) for European Latin-1 users." | 80 "Set up multilingual environment (MULE) for European Latin-1 users." |
84 (interactive) | 81 (interactive) |
85 (setup-8-bit-environment 'latin-iso8859-1 'iso-latin-1 | 82 (setup-8-bit-environment 'latin-iso8859-1 'iso-latin-1 |
86 '("Latin-1" . "quail-latin-1"))) | 83 '("Latin-1" . "quail-latin-1"))) |
107 '((ascii t) (latin-iso8859-2 t) nil nil | 104 '((ascii t) (latin-iso8859-2 t) nil nil |
108 nil ascii-eol ascii-cntl nil nil nil nil)) | 105 nil ascii-eol ascii-cntl nil nil nil nil)) |
109 | 106 |
110 (define-coding-system-alias 'iso-latin-2 'iso-8859-2) | 107 (define-coding-system-alias 'iso-latin-2 'iso-8859-2) |
111 | 108 |
112 (register-input-method "Latin-2" | |
113 '("quail-latin-2" quail-use-package "quail/latin")) | |
114 | |
115 (defun setup-latin2-environment () | 109 (defun setup-latin2-environment () |
116 "Set up multilingual environment (MULE) for European Latin-2 users." | 110 "Set up multilingual environment (MULE) for European Latin-2 users." |
117 (interactive) | 111 (interactive) |
118 (setup-8-bit-environment 'latin-iso8859-2 'iso-latin-2 | 112 (setup-8-bit-environment 'latin-iso8859-2 'iso-latin-2 |
119 '("Latin-2" . "quail-latin-2"))) | 113 '("Latin-2" . "quail-latin-2"))) |
138 '((ascii t) (latin-iso8859-3 t) nil nil | 132 '((ascii t) (latin-iso8859-3 t) nil nil |
139 nil ascii-eol ascii-cntl nil nil nil nil)) | 133 nil ascii-eol ascii-cntl nil nil nil nil)) |
140 | 134 |
141 (define-coding-system-alias 'iso-latin-3 'iso-8859-3) | 135 (define-coding-system-alias 'iso-latin-3 'iso-8859-3) |
142 | 136 |
143 (register-input-method "Latin-3" | |
144 '("quail-latin-3" quail-use-package "quail/latin")) | |
145 | |
146 (defun setup-latin3-environment () | 137 (defun setup-latin3-environment () |
147 "Set up multilingual environment (MULE) for European Latin-3 users." | 138 "Set up multilingual environment (MULE) for European Latin-3 users." |
148 (interactive) | 139 (interactive) |
149 (setup-8-bit-environment 'latin-iso8859-3 'iso-latin-3 | 140 (setup-8-bit-environment 'latin-iso8859-3 'iso-latin-3 |
150 '("Latin-3" . "quail-latin-3"))) | 141 '("Latin-3" . "quail-latin-3"))) |
169 '((ascii t) (latin-iso8859-4 t) nil nil | 160 '((ascii t) (latin-iso8859-4 t) nil nil |
170 nil ascii-eol ascii-cntl nil nil nil nil)) | 161 nil ascii-eol ascii-cntl nil nil nil nil)) |
171 | 162 |
172 (define-coding-system-alias 'iso-latin-4 'iso-8859-4) | 163 (define-coding-system-alias 'iso-latin-4 'iso-8859-4) |
173 | 164 |
174 (register-input-method "Latin-4" | |
175 '("quail-latin-4" quail-use-package "quail/latin")) | |
176 | |
177 (defun setup-latin4-environment () | 165 (defun setup-latin4-environment () |
178 "Set up multilingual environment (MULE) for European Latin-4 users." | 166 "Set up multilingual environment (MULE) for European Latin-4 users." |
179 (interactive) | 167 (interactive) |
180 (setup-8-bit-environment 'latin-iso8859-4 'iso-latin-4 | 168 (setup-8-bit-environment 'latin-iso8859-4 'iso-latin-4 |
181 '("Latin-4" . "quail-latin-4"))) | 169 '("Latin-4" . "quail-latin-4"))) |
200 '((ascii t) (latin-iso8859-9 t) nil nil | 188 '((ascii t) (latin-iso8859-9 t) nil nil |
201 nil ascii-eol ascii-cntl nil nil nil nil)) | 189 nil ascii-eol ascii-cntl nil nil nil nil)) |
202 | 190 |
203 (define-coding-system-alias 'iso-latin-5 'iso-8859-9) | 191 (define-coding-system-alias 'iso-latin-5 'iso-8859-9) |
204 | 192 |
205 (register-input-method "Latin-5" | |
206 '("quail-latin-5" quail-use-package "quail/latin")) | |
207 | |
208 (defun setup-latin5-environment () | 193 (defun setup-latin5-environment () |
209 "Set up multilingual environment (MULE) for European Latin-5 users." | 194 "Set up multilingual environment (MULE) for European Latin-5 users." |
210 (interactive) | 195 (interactive) |
211 (setup-8-bit-environment 'latin-iso8859-9 'iso-latin-5 | 196 (setup-8-bit-environment 'latin-iso8859-9 'iso-latin-5 |
212 '("Latin-5" . "quail-latin-5"))) | 197 '("Latin-5" . "quail-latin-5"))) |
218 (coding-system . (iso-latin-5)) | 203 (coding-system . (iso-latin-5)) |
219 (documentation . ("\ | 204 (documentation . ("\ |
220 These languages are supported with the Latin-5 (ISO-8859-9) character set. | 205 These languages are supported with the Latin-5 (ISO-8859-9) character set. |
221 " . describe-european-environment-map)) | 206 " . describe-european-environment-map)) |
222 )) | 207 )) |
223 | |
224 (let ((languages '("French" "German" "Spanish" "Italian" | |
225 ;; We have to list much more European languages here. | |
226 )) | |
227 (val '("quail-latin-1" quail-use-package "quail/latin"))) | |
228 (while languages | |
229 (register-input-method (car languages) val) | |
230 (setq languages (cdr languages)))) | |
231 | 208 |
232 ;;; european.el ends here | 209 ;;; european.el ends here |