Mercurial > emacs
comparison leim/quail/hangul3.el @ 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 | 82240aaf7ab6 |
| children | 2c99e81da802 |
comparison
equal
deleted
inserted
replaced
| 20440:49665fc430d4 | 20441:2db59cb96687 |
|---|---|
| 23 ;; Boston, MA 02111-1307, USA. | 23 ;; Boston, MA 02111-1307, USA. |
| 24 | 24 |
| 25 ;;; Code: | 25 ;;; Code: |
| 26 | 26 |
| 27 (require 'quail) | 27 (require 'quail) |
| 28 | 28 (require 'korea-util) |
| 29 (defun quail-hangul-switch-to-symbol-ksc (&rest ignore) | |
| 30 "Swith to `korean-symbol' package." | |
| 31 (quail-delete-region) | |
| 32 (activate-input-method "korean-symbol") | |
| 33 (throw 'quail-tag nil)) | |
| 34 | 29 |
| 35 (quail-define-package | 30 (quail-define-package |
| 36 "korean-hangul3" "Korean" "$(CGQ(B3" | 31 "korean-hangul3" "Korean" "$(CGQ(B3" |
| 37 '(;; first character | 32 '(;; first character |
| 38 (?k . "$(C$!(B") (?h . "$(C$$(B") (?u . "$(C$'(B") (?y . "$(C$)(B") (?i . "$(C$1(B") | 33 (?k . "$(C$!(B") (?h . "$(C$$(B") (?u . "$(C$'(B") (?y . "$(C$)(B") (?i . "$(C$1(B") |
| 70 <key sequence> k f x | 65 <key sequence> k f x |
| 71 <string inserted> $(C$!(B $(C0!(B $(C0"(B" | 66 <string inserted> $(C$!(B $(C0!(B $(C0"(B" |
| 72 nil t t) | 67 nil t t) |
| 73 | 68 |
| 74 (quail-define-rules | 69 (quail-define-rules |
| 75 ("\\" quail-hangul-switch-to-symbol-ksc) | |
| 76 | |
| 77 ("k" ?$(C$!(B) | 70 ("k" ?$(C$!(B) |
| 78 ("kk" ?$(C$"(B) | 71 ("kk" ?$(C$"(B) |
| 79 ("h" ?$(C$$(B) | 72 ("h" ?$(C$$(B) |
| 80 ("u" ?$(C$'(B) | 73 ("u" ?$(C$'(B) |
| 81 ("uu" ?$(C$((B) | 74 ("uu" ?$(C$((B) |