mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Require 'korea-util. Title string of the input

Browse source 
method "korean-hanja" changed.
(quail-hanja-switch-to-symbol-ksc): Deleted.
This commit is contained in:
Kenichi Handa 1997-12-09 04:18:08 +00:00
parent d71da2a6a4
commit 34bec2c6f3
1 changed files with 3 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

14
leim/quail/hanja.el
View file

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