diff options
author | Kenichi Handa <handa@m17n.org> | 1997-12-09 04:18:08 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1997-12-09 04:18:08 +0000 |
commit | 808221e2c1b7863e35d8aa544dddd206b8538adb (patch) | |
tree | bf90ca5a38a99ada47f61595870fdf1ff4f2f9a3 /leim | |
parent | de7626a7c78f0aeb3fb6e02783b4c45798180d3b (diff) | |
download | emacs-808221e2c1b7863e35d8aa544dddd206b8538adb.tar.gz |
Require 'korea-util.
(quail-hangul-switch-to-symbol-ksc): Deleted.
Diffstat (limited to 'leim')
-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) |