diff options
| author | Kenichi Handa | 1997-12-09 04:18:08 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-12-09 04:18:08 +0000 |
| commit | d71da2a6a494eecbdf7fd611f3a3192d77455f17 (patch) | |
| tree | e481ee29fae766c4c6938b5693d6d5af12ef37f7 /leim | |
| parent | 26db3a55aef7935300a3d7bde723cca6dd975f2d (diff) | |
| download | emacs-d71da2a6a494eecbdf7fd611f3a3192d77455f17.tar.gz emacs-d71da2a6a494eecbdf7fd611f3a3192d77455f17.zip | |
Title string of the input method
"korean-symbol" changed. Require 'korea-util.
(quail-hangul-switch-back): Deleted.
Diffstat (limited to 'leim')
| -rw-r--r-- | leim/quail/symbol-ksc.el | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/leim/quail/symbol-ksc.el b/leim/quail/symbol-ksc.el index ad0a758c15d..161028f484c 100644 --- a/leim/quail/symbol-ksc.el +++ b/leim/quail/symbol-ksc.el | |||
| @@ -30,16 +30,10 @@ | |||
| 30 | ;;; Code: | 30 | ;;; Code: |
| 31 | 31 | ||
| 32 | (require 'quail) | 32 | (require 'quail) |
| 33 | 33 | (require 'korea-util) | |
| 34 | (defun quail-hangul-switch-back (key idx) | ||
| 35 | (if (not input-method-history) | ||
| 36 | (toggle-input-method t) | ||
| 37 | (quail-delete-region) | ||
| 38 | (activate-input-method (car input-method-history))) | ||
| 39 | (throw 'quail-tag nil)) | ||
| 40 | 34 | ||
| 41 | (quail-define-package | 35 | (quail-define-package |
| 42 | "korean-symbol" "Korean" "$(CGQ1[=I9z@T7BG%(B" t | 36 | "korean-symbol" "Korean" "$(C=I9z(B" t |
| 43 | "$(CGQ1[=I9z@T7BG%(B: | 37 | "$(CGQ1[=I9z@T7BG%(B: |
| 44 | $(C!<(B($(C!=0}H#?-1b!<(Barrow$(C!=H-;l!<(Bsex$(C!=!N!O!<(Bindex$(C!=C7@Z(B $(C!<(Baccent$(C!=>G<>F.(B | 38 | $(C!<(B($(C!=0}H#?-1b!<(Barrow$(C!=H-;l!<(Bsex$(C!=!N!O!<(Bindex$(C!=C7@Z(B $(C!<(Baccent$(C!=>G<>F.(B |
| 45 | $(C!<(B)$(C!=0}H#4]1b!<(Bmusic$(C!=@=>G!<(Bdot$(C!=A!(B $(C!<(Bquote$(C!=5{?HG%!<(Bxtext$(C!=!W!X"R"."/(B | 39 | $(C!<(B)$(C!=0}H#4]1b!<(Bmusic$(C!=@=>G!<(Bdot$(C!=A!(B $(C!<(Bquote$(C!=5{?HG%!<(Bxtext$(C!=!W!X"R"."/(B |
| @@ -56,8 +50,6 @@ | |||
| 56 | $(C!<@Z<R!=(B2$(C9z=D(B + $(C$U(B(S) $(C$o(B(t_) $(C$p(B(DD) $(C$q(B(D) $(C$v(B(G) $(C$u(B(GG) $(C$}(B(uk)") | 50 | $(C!<@Z<R!=(B2$(C9z=D(B + $(C$U(B(S) $(C$o(B(t_) $(C$p(B(DD) $(C$q(B(D) $(C$v(B(G) $(C$u(B(GG) $(C$}(B(uk)") |
| 57 | 51 | ||
| 58 | (quail-define-rules | 52 | (quail-define-rules |
| 59 | ("\\" quail-hangul-switch-back) | ||
| 60 | |||
| 61 | ("(" "$(C!2!4!6!8!:!<(B") | 53 | ("(" "$(C!2!4!6!8!:!<(B") |
| 62 | (")" "$(C!3!5!7!9!;!=(B") | 54 | (")" "$(C!3!5!7!9!;!=(B") |
| 63 | ("math" "$(C!>!?!@!A!B!C!D!E!P!Q!R!S!T!U!V!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~"""#"$"1"2"3(B") | 55 | ("math" "$(C!>!?!@!A!B!C!D!E!P!Q!R!S!T!U!V!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~"""#"$"1"2"3(B") |