Mercurial > emacs

changeset 24717:ea66a10b8c12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author Kenichi Handa <handa@m17n.org>
date Tue, 11 May 1999 04:28:26 +0000
parents ceeb1f1d1a88
children 547f54dfbb94
files lisp/language/korea-util.el
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/korea-util.el	Tue May 11 01:34:28 1999 +0000
+++ b/lisp/language/korea-util.el	Tue May 11 04:28:26 1999 +0000
@@ -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.