# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 881641088 0
# Node ID 2db59cb9668737afae663fcdf2621d60175bf15a
# Parent  49665fc430d4c1e4e89da13ff6150c92f7afc570
Require 'korea-util.
(quail-hangul-switch-to-symbol-ksc): Deleted.

diff -r 49665fc430d4 -r 2db59cb96687 leim/quail/hangul.el
--- a/leim/quail/hangul.el	Tue Dec 09 04:18:08 1997 +0000
+++ b/leim/quail/hangul.el	Tue Dec 09 04:18:08 1997 +0000
@@ -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" "$(CGQ(B2"
@@ -60,8 +55,6 @@
  nil t t nil nil nil t)
 
 (quail-define-rules
- ("\\" quail-hangul-switch-to-symbol-ksc)
-
  ("r"	?$(C$!(B)
  ("s"	?$(C$$(B)
  ("e"	?$(C$'(B)
diff -r 49665fc430d4 -r 2db59cb96687 leim/quail/hangul3.el
--- a/leim/quail/hangul3.el	Tue Dec 09 04:18:08 1997 +0000
+++ b/leim/quail/hangul3.el	Tue Dec 09 04:18:08 1997 +0000
@@ -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" "$(CGQ(B3"
@@ -72,8 +67,6 @@
  nil t t)
 
 (quail-define-rules
- ("\\" quail-hangul-switch-to-symbol-ksc)
-
  ("k" ?$(C$!(B)
  ("kk" ?$(C$"(B)
  ("h" ?$(C$$(B)