Mercurial > emacs
changeset 20441:2db59cb96687
Require 'korea-util.
(quail-hangul-switch-to-symbol-ksc): Deleted.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 09 Dec 1997 04:18:08 +0000 |
| parents | 49665fc430d4 |
| children | da84d48fd13b |
| files | leim/quail/hangul.el leim/quail/hangul3.el |
| diffstat | 2 files changed, 2 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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)