mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

Title string of the input method

Browse Source 
"korean-symbol" changed.  Require 'korea-util.
(quail-hangul-switch-back): Deleted.
This commit is contained in:
Kenichi Handa 1997-12-09 04:18:08 +00:00
parent 26db3a55ae
commit d71da2a6a4
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
leim/quail/symbol-ksc.el
View File

@ -30,16 +30,10 @@
;;; Code:
(require 'quail)
(defun quail-hangul-switch-back (key idx)
(if (not input-method-history)
(toggle-input-method t)
(quail-delete-region)
(activate-input-method (car input-method-history)))
(throw 'quail-tag nil))
(require 'korea-util)
(quail-define-package
"korean-symbol" "Korean" "$(CGQ1[=I9z@T7BG%(B" t
"korean-symbol" "Korean" "$(C=I9z(B" t
"$(CGQ1[=I9z@T7BG%(B:
$(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
$(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 @@
$(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)")
(quail-define-rules
("\\" quail-hangul-switch-back)
("(" "$(C!2!4!6!8!:!<(B")
(")" "$(C!3!5!7!9!;!=(B")
("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")