diff options
| author | Kenichi Handa <[email protected]> | 1999-05-11 04:28:26 +0000 |
|---|---|---|
| committer | Kenichi Handa <[email protected]> | 1999-05-11 04:28:26 +0000 |
| commit | e72da895c02f4528c02ef3753a847f6797112f3d (patch) | |
| tree | 154169e8ea55c75ddaeb627edf374de5166fb06e /lisp/language | |
| parent | 6397418aa111835019b4c13d0825e2b048393401 (diff) | |
* language/korea-util.el (isearch-toggle-korean-input-method):
Adjusted for the change of input method handling in isearch.el.
(isearch-hangul-switch-symbol-ksc): Likewise.
(isearch-hangul-switch-hanja): Likewise.
Diffstat (limited to 'lisp/language')
| -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 8afdbbfa82..d77a65aa9f 100644 --- a/lisp/language/korea-util.el +++ b/lisp/language/korea-util.el @@ -63,18 +63,27 @@ (interactive) (let ((overriding-terminal-local-map nil)) (toggle-korean-input-method)) + (setq isearch-input-method-function input-method-function + isearch-input-method-local-p t) + (setq input-method-function nil) (isearch-update)) (defun isearch-hangul-switch-symbol-ksc () (interactive) (let ((overriding-terminal-local-map nil)) (quail-hangul-switch-symbol-ksc)) + (setq isearch-input-method-function input-method-function + isearch-input-method-local-p t) + (setq input-method-function nil) (isearch-update)) (defun isearch-hangul-switch-hanja () (interactive) (let ((overriding-terminal-local-map nil)) (quail-hangul-switch-hanja)) + (setq isearch-input-method-function input-method-function + isearch-input-method-local-p t) + (setq input-method-function nil) (isearch-update)) ;; Information for setting and exiting Korean environment. |