Mercurial > emacs

comparison leim/quail/hangul.el @ 20441:2db59cb96687

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 f8074abd4bec
children f6fd6bf625a7
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-hangul" "Korean" "$(CGQ(B2" 31 "korean-hangul" "Korean" "$(CGQ(B2"
37 '((?r . "$(C$!(B") (?s . "$(C$$(B") (?e . "$(C$'(B") (?f . "$(C$)(B") (?a . "$(C$1(B") 32 '((?r . "$(C$!(B") (?s . "$(C$$(B") (?e . "$(C$'(B") (?f . "$(C$)(B") (?a . "$(C$1(B")
38 (?q . "$(C$2(B") (?t . "$(C$5(B") (?d . "$(C$7(B") (?w . "$(C$8(B") (?c . "$(C$:(B") 33 (?q . "$(C$2(B") (?t . "$(C$5(B") (?d . "$(C$7(B") (?w . "$(C$8(B") (?c . "$(C$:(B")
58 <key sequence> r k r <C-SP> k 53 <key sequence> r k r <C-SP> k
59 <string inserted> $(C$!(B $(C0!(B $(C0"(B $(C0"(B $(C0"$?(B" 54 <string inserted> $(C$!(B $(C0!(B $(C0"(B $(C0"(B $(C0"$?(B"
60 nil t t nil nil nil t) 55 nil t t nil nil nil t)
61 56
62 (quail-define-rules 57 (quail-define-rules
63 ("\\" quail-hangul-switch-to-symbol-ksc)
64
65 ("r" ?$(C$!(B) 58 ("r" ?$(C$!(B)
66 ("s" ?$(C$$(B) 59 ("s" ?$(C$$(B)
67 ("e" ?$(C$'(B) 60 ("e" ?$(C$'(B)
68 ("f" ?$(C$)(B) 61 ("f" ?$(C$)(B)
69 ("a" ?$(C$1(B) 62 ("a" ?$(C$1(B)