Mercurial > emacs
comparison lisp/language/korea-util.el @ 20738:f510736ce3d1
In setup-LANGUAGE-environment functions,
call set-language-environment-coding-systems.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 22 Jan 1998 01:45:51 +0000 |
| parents | da84d48fd13b |
| children | bcb4a7a67d13 |
comparison
equal
deleted
inserted
replaced
| 20737:df8fab27273f | 20738:f510736ce3d1 |
|---|---|
| 63 ;;;###autoload | 63 ;;;###autoload |
| 64 (defun setup-korean-environment () | 64 (defun setup-korean-environment () |
| 65 "Setup multilingual environment (MULE) for Korean." | 65 "Setup multilingual environment (MULE) for Korean." |
| 66 (interactive) | 66 (interactive) |
| 67 (setup-english-environment) | 67 (setup-english-environment) |
| 68 (setq coding-category-iso-8-2 'korean-iso-8bit) | 68 (set-language-environment-coding-systems "Korean") |
| 69 | |
| 70 (set-coding-priority | |
| 71 '(coding-category-iso-7 | |
| 72 coding-category-iso-8-2 | |
| 73 coding-category-iso-8-1)) | |
| 74 | |
| 75 (set-default-coding-systems 'korean-iso-8bit) | |
| 76 | 69 |
| 77 (setq default-input-method "korean-hangul") | 70 (setq default-input-method "korean-hangul") |
| 78 | 71 |
| 79 (let ((key-bindings '(([?\S- ] . toggle-korean-input-method) | 72 (let ((key-bindings '(([?\S- ] . toggle-korean-input-method) |
| 80 ([C-f9] . quail-hangul-switch-symbol-ksc) | 73 ([C-f9] . quail-hangul-switch-symbol-ksc) |