Mercurial > emacs
comparison lisp/language/thai-util.el @ 22987:708271862495
(setup-XXX-environment): Just call set-language-environment. If
they used to do some other jobs than what done by
set-language-environment, those jobs are done in
setup-XXX-environment-internal now.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 10 Aug 1998 06:42:41 +0000 |
| parents | df8fab27273f |
| children | e49c2fb2a695 |
comparison
equal
deleted
inserted
replaced
| 22986:b5c383369b40 | 22987:708271862495 |
|---|---|
| 26 | 26 |
| 27 ;;;###autoload | 27 ;;;###autoload |
| 28 (defun setup-thai-environment () | 28 (defun setup-thai-environment () |
| 29 "Setup multilingual environment (MULE) for Thai." | 29 "Setup multilingual environment (MULE) for Thai." |
| 30 (interactive) | 30 (interactive) |
| 31 (setup-8-bit-environment "Thai" 'thai-tis620 "thai-kesmanee")) | 31 (set-language-environment "Thai")) |
| 32 | 32 |
| 33 ;; Setting information of Thai characters. | 33 ;; Setting information of Thai characters. |
| 34 | 34 |
| 35 (let ((l '((?,T!(B consonant "LETTER KO KAI") ; 0xA1 | 35 (let ((l '((?,T!(B consonant "LETTER KO KAI") ; 0xA1 |
| 36 (?,T"(B consonant "LETTER KHO KHAI") ; 0xA2 | 36 (?,T"(B consonant "LETTER KHO KHAI") ; 0xA2 |