Require 'korea-util.

(quail-hangul-switch-to-symbol-ksc): Deleted.

diff --git a/leim/quail/hangul.el b/leim/quail/hangul.el
index 727eea2..f263b4a 100644 (file)
--- a/leim/quail/hangul.el
+++ b/leim/quail/hangul.el
@@ -25,12 +25,7 @@
 ;;; Code:
 
 (require 'quail)
-
-(defun quail-hangul-switch-to-symbol-ksc (&rest ignore)
-  "Swith to `korean-symbol' package."
-  (quail-delete-region)
-  (activate-input-method "korean-symbol")
-  (throw 'quail-tag nil))
+(require 'korea-util)
 
 (quail-define-package
  "korean-hangul" "Korean" "\e$(CGQ\e(B2"
@@ -60,8 +55,6 @@ For instance, typing \"S\" followed by TAB will tell you
  nil t t nil nil nil t)
 
 (quail-define-rules
- ("\\" quail-hangul-switch-to-symbol-ksc)
-
  ("r"  ?\e$(C$!\e(B)
  ("s"  ?\e$(C$$\e(B)
  ("e"  ?\e$(C$'\e(B)

diff --git a/leim/quail/hangul3.el b/leim/quail/hangul3.el
index a0631c6..23e8e68 100644 (file)
--- a/leim/quail/hangul3.el
+++ b/leim/quail/hangul3.el
@@ -25,12 +25,7 @@
 ;;; Code:
 
 (require 'quail)
-
-(defun quail-hangul-switch-to-symbol-ksc (&rest ignore)
-  "Swith to `korean-symbol' package."
-  (quail-delete-region)
-  (activate-input-method "korean-symbol")
-  (throw 'quail-tag nil))
+(require 'korea-util)
 
 (quail-define-package
  "korean-hangul3" "Korean" "\e$(CGQ\e(B3"
@@ -72,8 +67,6 @@
  nil t t)
 
 (quail-define-rules
- ("\\" quail-hangul-switch-to-symbol-ksc)
-
  ("k" ?\e$(C$!\e(B)
  ("kk" ?\e$(C$"\e(B)
  ("h" ?\e$(C$$\e(B)