comparison lisp/language/european.el @ 50194:dc8403640b05

("Latin-6"): Fix input-method. ("Latin-7"): Fix input-method.
author Kenichi Handa <handa@m17n.org>
date Wed, 19 Mar 2003 11:11:50 +0000
parents cc4a5dfff93a
children 695cf19ef79e
comparison
equal deleted inserted replaced
50193:dadd724b7ce9 50194:dc8403640b05
379 379
380 (set-language-info-alist 380 (set-language-info-alist
381 "Latin-6" `((coding-system latin-6) 381 "Latin-6" `((coding-system latin-6)
382 (coding-priority latin-6) 382 (coding-priority latin-6)
383 (nonascii-translation . ,(get 'decode-iso-latin-6 'translation-table)) 383 (nonascii-translation . ,(get 'decode-iso-latin-6 'translation-table))
384 (input-method . latin-pre) 384 (input-method . "latin-prefix")
385 (input-method . latin-pre)
386 (features code-pages) 385 (features code-pages)
387 (documentation . "Support for Latin-6.")) 386 (documentation . "Support for Latin-6."))
388 '("European")) 387 '("European"))
389 388
390 (set-language-info-alist 389 (set-language-info-alist
391 "Latin-7" `((coding-system latin-7) 390 "Latin-7" `((coding-system latin-7)
392 (coding-priority latin-7) 391 (coding-priority latin-7)
393 (nonascii-translation . ,(get 'decode-iso-latin-7 392 (nonascii-translation . ,(get 'decode-iso-latin-7
394 'translation-table)) 393 'translation-table))
395 (input-method . latin-pre) 394 (input-method . "latin-prefix")
396 (features code-pages) 395 (features code-pages)
397 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian.")) 396 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian."))
398 '("European")) 397 '("European"))
399 398
400 (set-language-info-alist 399 (set-language-info-alist