Mercurial > emacs
changeset 20439:5ccdbbb69483
Require 'korea-util. Title string of the input
method "korean-hanja" changed.
(quail-hanja-switch-to-symbol-ksc): Deleted.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 09 Dec 1997 04:18:08 +0000 |
| parents | 1c8c81e873ac |
| children | 49665fc430d4 |
| files | leim/quail/hanja.el |
| diffstat | 1 files changed, 3 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/leim/quail/hanja.el Tue Dec 09 04:18:08 1997 +0000 +++ b/leim/quail/hanja.el Tue Dec 09 04:18:08 1997 +0000 @@ -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")