Mercurial > emacs
comparison lisp/language/korea-util.el @ 28906:60eb71a9f901
Remove all the setup-...-environment functions.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 14 May 2000 15:21:41 +0000 |
| parents | 34282f1ae111 |
| children | 67b464da13ec |
comparison
equal
deleted
inserted
replaced
| 28905:e96880caf4e5 | 28906:60eb71a9f901 |
|---|---|
| 97 (,isearch-mode-map [?\S- ] isearch-toggle-korean-input-method nil) | 97 (,isearch-mode-map [?\S- ] isearch-toggle-korean-input-method nil) |
| 98 (,isearch-mode-map [C-f9] isearch-hangul-switch-symbol-ksc nil) | 98 (,isearch-mode-map [C-f9] isearch-hangul-switch-symbol-ksc nil) |
| 99 (,isearch-mode-map [f9] isearch-hangul-switch-hanja nil))) | 99 (,isearch-mode-map [f9] isearch-hangul-switch-hanja nil))) |
| 100 | 100 |
| 101 ;;;###autoload | 101 ;;;###autoload |
| 102 (defun setup-korean-environment () | |
| 103 "Setup multilingual environment (MULE) for Korean." | |
| 104 (interactive) | |
| 105 (set-language-environment "Korean")) | |
| 106 | |
| 107 ;;;###autoload | |
| 108 (defun setup-korean-environment-internal () | 102 (defun setup-korean-environment-internal () |
| 109 (let ((key-bindings korean-key-bindings)) | 103 (let ((key-bindings korean-key-bindings)) |
| 110 (while key-bindings | 104 (while key-bindings |
| 111 (let* ((this (car key-bindings)) | 105 (let* ((this (car key-bindings)) |
| 112 (key (nth 1 this)) | 106 (key (nth 1 this)) |