diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/language/korea-util.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el index 8afdbbfa822..d77a65aa9f1 100644 --- a/lisp/language/korea-util.el +++ b/lisp/language/korea-util.el | |||
| @@ -63,18 +63,27 @@ | |||
| 63 | (interactive) | 63 | (interactive) |
| 64 | (let ((overriding-terminal-local-map nil)) | 64 | (let ((overriding-terminal-local-map nil)) |
| 65 | (toggle-korean-input-method)) | 65 | (toggle-korean-input-method)) |
| 66 | (setq isearch-input-method-function input-method-function | ||
| 67 | isearch-input-method-local-p t) | ||
| 68 | (setq input-method-function nil) | ||
| 66 | (isearch-update)) | 69 | (isearch-update)) |
| 67 | 70 | ||
| 68 | (defun isearch-hangul-switch-symbol-ksc () | 71 | (defun isearch-hangul-switch-symbol-ksc () |
| 69 | (interactive) | 72 | (interactive) |
| 70 | (let ((overriding-terminal-local-map nil)) | 73 | (let ((overriding-terminal-local-map nil)) |
| 71 | (quail-hangul-switch-symbol-ksc)) | 74 | (quail-hangul-switch-symbol-ksc)) |
| 75 | (setq isearch-input-method-function input-method-function | ||
| 76 | isearch-input-method-local-p t) | ||
| 77 | (setq input-method-function nil) | ||
| 72 | (isearch-update)) | 78 | (isearch-update)) |
| 73 | 79 | ||
| 74 | (defun isearch-hangul-switch-hanja () | 80 | (defun isearch-hangul-switch-hanja () |
| 75 | (interactive) | 81 | (interactive) |
| 76 | (let ((overriding-terminal-local-map nil)) | 82 | (let ((overriding-terminal-local-map nil)) |
| 77 | (quail-hangul-switch-hanja)) | 83 | (quail-hangul-switch-hanja)) |
| 84 | (setq isearch-input-method-function input-method-function | ||
| 85 | isearch-input-method-local-p t) | ||
| 86 | (setq input-method-function nil) | ||
| 78 | (isearch-update)) | 87 | (isearch-update)) |
| 79 | 88 | ||
| 80 | ;; Information for setting and exiting Korean environment. | 89 | ;; Information for setting and exiting Korean environment. |