From 34bec2c6f36535703b44dddaca3f2ff3013eca4f Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Tue, 9 Dec 1997 04:18:08 +0000
Subject: [PATCH] Require 'korea-util.  Title string of the input method
 "korean-hanja" changed. (quail-hanja-switch-to-symbol-ksc): Deleted.

---
 leim/quail/hanja.el | 14 +++-----------
 1 file 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")
-- 
2.39.2