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 | 34bec2c6f36535703b44dddaca3f2ff3013eca4f (patch) | |
| tree | 762d29d540f160ba046acce018b80818ac4e78fc /leim/quail/hanja.el | |
| parent | d71da2a6a494eecbdf7fd611f3a3192d77455f17 (diff) | |
| download | emacs-34bec2c6f36535703b44dddaca3f2ff3013eca4f.tar.gz | |
Require 'korea-util. Title string of the input
method "korean-hanja" changed.
(quail-hanja-switch-to-symbol-ksc): Deleted.
Diffstat (limited to 'leim/quail/hanja.el')
| -rw-r--r-- | leim/quail/hanja.el | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/leim/quail/hanja.el b/leim/quail/hanja.el index 3ee8c5a5280..091b138c2f3 100644 --- a/leim/quail/hanja.el +++ b/leim/quail/hanja.el @@ -1,4 +1,4 @@ -;;; quail/hanja-ksc.el --- Quail-package for Korean Hanja (KSC5601) +;;; quail/hanja.el --- Quail-package for Korean Hanja (KSC5601) ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -25,22 +25,14 @@ ;;; Code: (require 'quail) - -(defun quail-hanja-switch-to-symbol-ksc (&rest ignore) - "Swith to `korean-symbol' package." - (quail-delete-region) - (select-input-method "korean-symbol") - (throw 'quail-tag nil)) - +(require 'korea-util) (quail-define-package - "korean-hanja" "Korean" "$(C9zyS(B" t + "korean-hanja" "Korean" "$(CyS(B2" t "2$(C9z=D(BKSC$(CySm.(B: $(Cz1SWGO4B(B $(CySm.@G(B $(Cj$@;(B $(CGQ1[(B2$(C9zcR@87N(B $(C{<usGO?)(B $(C`TwI(B" nil nil nil nil nil nil t) (quail-define-rules - ("\\" quail-hanja-switch-to-symbol-ksc) - ("rk" "$(CJ!J"J#J$J%J&J'J(J)J*J+J,J-J.J/J0J1J2J3J4J5J6J7J8J9J:J;J<J=(B") ("rkr" "$(CJ>J?J@JAJBJCJDJEJFJGJH(B") ("rks" "$(CJIJJJKJLJMJNJOJPJQJRJSJTJUJVJWJXJYJZJ[J\J]J^J_J`(B") |