From: Kenichi Handa <handa@m17n.org>
Date: Tue, 11 May 1999 04:28:26 +0000 (+0000)
Subject: * language/korea-util.el (isearch-toggle-korean-input-method):
X-Git-Tag: emacs-20.4~232
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e72da895c02f4528c02ef3753a847f6797112f3d;p=emacs.git

* 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.
---

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 @@
   (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.