Require 'korea-util. Title string of the input

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

diff --git a/leim/quail/hanja.el b/leim/quail/hanja.el
index 3ee8c5a5280cabde7e71713112144271953985ad..091b138c2f32667a9f0cdb4e8a64b3f864c42cdb 100644 (file)
--- 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" "\e$(C9zyS\e(B" t
+ "korean-hanja" "Korean" "\e$(CyS\e(B2" t
  "2\e$(C9z=D\e(BKSC\e$(CySm.\e(B: \e$(Cz1SWGO4B\e(B \e$(CySm.@G\e(B \e$(Cj$@;\e(B \e$(CGQ1[\e(B2\e$(C9zcR@87N\e(B \e$(C{<usGO?)\e(B \e$(C`TwI\e(B"
                      nil nil nil nil nil nil t)
 
 (quail-define-rules
- ("\\" quail-hanja-switch-to-symbol-ksc)
-
  ("rk" "\e$(CJ!J"J#J$J%J&J'J(J)J*J+J,J-J.J/J0J1J2J3J4J5J6J7J8J9J:J;J<J=\e(B")
  ("rkr"        "\e$(CJ>J?J@JAJBJCJDJEJFJGJH\e(B")
  ("rks"        "\e$(CJIJJJKJLJMJNJOJPJQJRJSJTJUJVJWJXJYJZJ[J\J]J^J_J`\e(B")