Mercurial > hg > xemacs-beta

comparison lisp/language/european.el @ 171:929b76928fce r20-3b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b12
author cvs
date Mon, 13 Aug 2007 09:47:52 +0200
parents 3bb7ccffb0c0
children acd284d43ca1
comparison
equal deleted inserted replaced
170:98a42ee61975 171:929b76928fce
177 (val '("quail-latin-1" quail-use-package "quail/latin"))) 177 (val '("quail-latin-1" quail-use-package "quail/latin")))
178 (while languages 178 (while languages
179 (register-input-method (car languages) val) 179 (register-input-method (car languages) val)
180 (setq languages (cdr languages)))) 180 (setq languages (cdr languages))))
181 181
182 (register-input-method "Esperanto"
183 '("quail-esperanto" quail-use-package "quail/latin"))
184
185 (mapcar (function
186 (lambda (method)
187 (register-input-method "Italian"
188 (cons method
189 '(quail-use-package "quail/latin")))
190 ))
191 '("quail-italian" "quail-itln"))
192
193 (mapcar (function
194 (lambda (method)
195 (register-input-method "Spanish"
196 (cons method
197 '(quail-use-package "quail/latin")))
198 ))
199 '("quail-spanish" "quail-spnsh"))
200
201 (mapcar (function
202 (lambda (method)
203 (register-input-method "French"
204 (cons method
205 '(quail-use-package "quail/latin")))
206 ))
207 '("quail-french" "quail-frnch" "quail-azerty"))
208
209 (mapcar (function
210 (lambda (method)
211 (register-input-method "German"
212 (cons method
213 '(quail-use-package "quail/latin")))
214 ))
215 '("quail-german" "quail-grmn"))
216
217 (register-input-method "Scandinavian"
218 '("quail-scandinavian" quail-use-package "quail/latin"))
219
220 (mapcar (function
221 (lambda (method)
222 (register-input-method "Icelandic"
223 (cons method
224 '(quail-use-package "quail/latin")))
225 ))
226 '("quail-icelandic" "quail-iclndc"))
227
228 (mapcar (function
229 (lambda (method)
230 (register-input-method "Danish"
231 (cons method
232 '(quail-use-package "quail/latin")))
233 ))
234 '("quail-danish" "quail-dnsh"))
235
236 (mapcar (function
237 (lambda (method)
238 (register-input-method "Norwegian"
239 (cons method
240 '(quail-use-package "quail/latin")))
241 ))
242 '("quail-norwegian" "quail-nrwgn"))
243
244 (mapcar (function
245 (lambda (method)
246 (register-input-method "Swedish"
247 (cons method
248 '(quail-use-package "quail/latin")))
249 ))
250 '("quail-swedish" "quail-swdsh"))
251
252 (mapcar (function
253 (lambda (method)
254 (register-input-method "Finish"
255 (cons method
256 '(quail-use-package "quail/latin")))
257 ))
258 '("quail-finnish" "quail-fnnsh"))
259
260 (register-input-method "Turkish"
261 '("quail-turkish" quail-use-package "quail/latin"))
262
182 ;;; european.el ends here 263 ;;; european.el ends here