From: Kenichi Handa <handa@m17n.org>
Date: Tue, 9 Dec 1997 04:18:08 +0000 (+0000)
Subject: Title string of the input method
X-Git-Tag: emacs-20.3~2635
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d71da2a6a494eecbdf7fd611f3a3192d77455f17;p=emacs.git

Title string of the input method
"korean-symbol" changed.  Require 'korea-util.
(quail-hangul-switch-back): Deleted.
---

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 @@
 ;;; 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")