Commit 34bec2c6 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

Require 'korea-util. Title string of the input

method "korean-hanja" changed.
(quail-hanja-switch-to-symbol-ksc): Deleted.
parent d71da2a6
;;; 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")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment