Require 'korea-util. Title string of the input

method "korean-hanja" changed.
(quail-hanja-switch-to-symbol-ksc): Deleted.

1 files changed, 3 insertions, 11 deletions

diff --git a/leim/quail/hanja.el b/leim/quail/hanja.el
index 3ee8c5a5280..091b138c2f3 100644
--- a/leim/quail/hanja.el
+++ b/leim/quail/hanja.el
@@ -1,4 +1,4 @@
-;;; quail/hanja-ksc.el --- Quail-package for Korean Hanja (KSC5601)
+;;; quail/hanja.el --- Quail-package for Korean Hanja (KSC5601)
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -25,22 +25,14 @@
 ;;; Code:
 
 (require 'quail)
-
-(defun quail-hanja-switch-to-symbol-ksc (&rest ignore)
-  "Swith to `korean-symbol' package."
-  (quail-delete-region)
-  (select-input-method "korean-symbol")
-  (throw 'quail-tag nil))
-
+(require 'korea-util)
 
 (quail-define-package 
- "korean-hanja" "Korean" "$(C9zyS(B" t
+ "korean-hanja" "Korean" "$(CyS(B2" t
  "2$(C9z=D(BKSC$(CySm.(B: $(Cz1SWGO4B(B $(CySm.@G(B $(Cj$@;(B $(CGQ1[(B2$(C9zcR@87N(B $(C{<usGO?)(B $(C`TwI(B"
                       nil nil nil nil nil nil t)
 
 (quail-define-rules
- ("\\" quail-hanja-switch-to-symbol-ksc)
-
  ("rk"  "$(CJ!J"J#J$J%J&J'J(J)J*J+J,J-J.J/J0J1J2J3J4J5J6J7J8J9J:J;J<J=(B")
  ("rkr" "$(CJ>J?J@JAJBJCJDJEJFJGJH(B")
  ("rks" "$(CJIJJJKJLJMJNJOJPJQJRJSJTJUJVJWJXJYJZJ[J\J]J^J_J`(B")