diff options
| -rw-r--r-- | leim/quail/hangul.el | 9 | ||||
| -rw-r--r-- | leim/quail/hangul3.el | 9 |
2 files changed, 2 insertions, 16 deletions
diff --git a/leim/quail/hangul.el b/leim/quail/hangul.el index 727eea29f19..f263b4a985a 100644 --- 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" "$(CGQ(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" ?$(C$!(B) ("s" ?$(C$$(B) ("e" ?$(C$'(B) diff --git a/leim/quail/hangul3.el b/leim/quail/hangul3.el index a0631c63e04..23e8e689565 100644 --- 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" "$(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) |