mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00
Code Issues Releases Activity

Require 'korea-util.

Browse Source 
(quail-hangul-switch-to-symbol-ksc): Deleted.
This commit is contained in:
Kenichi Handa 1997-12-09 04:18:08 +00:00
parent 8154bdfa68
commit 6cf2c8267a
2 changed files with 2 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
leim/quail/hangul.el
View File

@ -25,12 +25,7 @@
;;; Code:
(require 'quail)
(defun quail-hangul-switch-to-symbol-ksc (&rest ignore)
"Swith to `korean-symbol' package."
(quail-delete-region)
(activate-input-method "korean-symbol")
(throw 'quail-tag nil))
(require 'korea-util)
(quail-define-package
"korean-hangul" "Korean" "$(CGQ(B2"
@ -60,8 +55,6 @@ For instance, typing \"S\" followed by TAB will tell you
nil t t nil nil nil t)
(quail-define-rules
("\\" quail-hangul-switch-to-symbol-ksc)
("r" ?$(C$!(B)
("s" ?$(C$$(B)
("e" ?$(C$'(B)

9
leim/quail/hangul3.el
View File

@ -25,12 +25,7 @@
;;; Code:
(require 'quail)
(defun quail-hangul-switch-to-symbol-ksc (&rest ignore)
"Swith to `korean-symbol' package."
(quail-delete-region)
(activate-input-method "korean-symbol")
(throw 'quail-tag nil))
(require 'korea-util)
(quail-define-package
"korean-hangul3" "Korean" "$(CGQ(B3"
@ -72,8 +67,6 @@
nil t t)
(quail-define-rules
("\\" quail-hangul-switch-to-symbol-ksc)
("k" ?$(C$!(B)
("kk" ?$(C$"(B)
("h" ?$(C$$(B)