Mercurial > emacs
comparison lisp/language/thai.el @ 17772:550afdbb31d8
Make functions setup-LANGUAGE-environment
interactive and add new functions describe-LANGUAGE-support for
all LANGUAGEs supported. Remove resisterations of input methods
which use the function encoded-kbd-select-terminal.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 12 May 1997 07:00:16 +0000 |
parents | 8917133b7e82 |
children | 084d922fcd78 |
comparison
equal
deleted
inserted
replaced
17771:1db36f7e82d1 | 17772:550afdbb31d8 |
---|---|
40 | 40 |
41 (register-input-method | 41 (register-input-method |
42 "Thai" '("quail-thai" quail-use-package "quail/thai")) | 42 "Thai" '("quail-thai" quail-use-package "quail/thai")) |
43 | 43 |
44 (defun setup-thai-environment () | 44 (defun setup-thai-environment () |
45 "Setup multilingual environment (MULE) for Thai." | |
46 (interactive) | |
47 (setup-english-environment) | |
45 (setq coding-category-iso-8-1 'th-tis620) | 48 (setq coding-category-iso-8-1 'th-tis620) |
46 | 49 |
47 (set-coding-priority | 50 (set-coding-priority |
48 '(coding-category-iso-7 | 51 '(coding-category-iso-7 |
49 coding-category-iso-8-1)) | 52 coding-category-iso-8-1)) |
51 (setq-default buffer-file-coding-system 'th-tis620) | 54 (setq-default buffer-file-coding-system 'th-tis620) |
52 | 55 |
53 (setq default-input-method '("Thai" . "quail-thai")) | 56 (setq default-input-method '("Thai" . "quail-thai")) |
54 ) | 57 ) |
55 | 58 |
59 (defun describe-thai-support () | |
60 "Describe how Emacs supports Thai." | |
61 (interactive) | |
62 (describe-language-support-internal "Thai")) | |
63 | |
56 (set-language-info-alist | 64 (set-language-info-alist |
57 "Thai" '((tutorial . "TUTORIAL.th") | 65 "Thai" '((tutorial . "TUTORIAL.th") |
58 (setup-function . setup-thai-environment) | 66 (setup-function . setup-thai-environment) |
67 (describe-function . describe-thai-support) | |
59 (charset . (thai-tis620)) | 68 (charset . (thai-tis620)) |
60 (coding-system . (th-tis620)) | 69 (coding-system . (th-tis620)) |
61 (documentation . t) | 70 (sample-text . "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B") |
62 (sample-text . "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B"))) | 71 (documentation . nil))) |
63 | 72 |
64 ;;; thai.el ends here | 73 ;;; thai.el ends here |