diff options
| author | Kenichi Handa | 1997-12-09 04:18:08 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-12-09 04:18:08 +0000 |
| commit | 6cf2c8267ab5edaae01dbeca3ca9fefd9b2004d7 (patch) | |
| tree | 33b9b6f89983bb3c300fd69c7ffffa8efe2cb603 | |
| parent | 8154bdfa6864464324ab01c43ed3ad2c893c3074 (diff) | |
| download | emacs-6cf2c8267ab5edaae01dbeca3ca9fefd9b2004d7.tar.gz emacs-6cf2c8267ab5edaae01dbeca3ca9fefd9b2004d7.zip | |
Require 'korea-util.
(quail-hangul-switch-to-symbol-ksc): Deleted.
| -rw-r--r-- | leim/quail/hangul.el | 9 | ||||
| -rw-r--r-- | leim/quail/hangul3.el | 9 |
2 files changed, 2 insertions, 16 deletions
diff --git a/leim/quail/hangul.el b/leim/quail/hangul.el index 727eea29f19..f263b4a985a 100644 --- a/leim/quail/hangul.el +++ b/leim/quail/hangul.el | |||
| @@ -25,12 +25,7 @@ | |||
| 25 | ;;; Code: | 25 | ;;; Code: |
| 26 | 26 | ||
| 27 | (require 'quail) | 27 | (require 'quail) |
| 28 | 28 | (require 'korea-util) | |
| 29 | (defun quail-hangul-switch-to-symbol-ksc (&rest ignore) | ||
| 30 | "Swith to `korean-symbol' package." | ||
| 31 | (quail-delete-region) | ||
| 32 | (activate-input-method "korean-symbol") | ||
| 33 | (throw 'quail-tag nil)) | ||
| 34 | 29 | ||
| 35 | (quail-define-package | 30 | (quail-define-package |
| 36 | "korean-hangul" "Korean" "$(CGQ(B2" | 31 | "korean-hangul" "Korean" "$(CGQ(B2" |
| @@ -60,8 +55,6 @@ For instance, typing \"S\" followed by TAB will tell you | |||
| 60 | nil t t nil nil nil t) | 55 | nil t t nil nil nil t) |
| 61 | 56 | ||
| 62 | (quail-define-rules | 57 | (quail-define-rules |
| 63 | ("\\" quail-hangul-switch-to-symbol-ksc) | ||
| 64 | |||
| 65 | ("r" ?$(C$!(B) | 58 | ("r" ?$(C$!(B) |
| 66 | ("s" ?$(C$$(B) | 59 | ("s" ?$(C$$(B) |
| 67 | ("e" ?$(C$'(B) | 60 | ("e" ?$(C$'(B) |
diff --git a/leim/quail/hangul3.el b/leim/quail/hangul3.el index a0631c63e04..23e8e689565 100644 --- a/leim/quail/hangul3.el +++ b/leim/quail/hangul3.el | |||
| @@ -25,12 +25,7 @@ | |||
| 25 | ;;; Code: | 25 | ;;; Code: |
| 26 | 26 | ||
| 27 | (require 'quail) | 27 | (require 'quail) |
| 28 | 28 | (require 'korea-util) | |
| 29 | (defun quail-hangul-switch-to-symbol-ksc (&rest ignore) | ||
| 30 | "Swith to `korean-symbol' package." | ||
| 31 | (quail-delete-region) | ||
| 32 | (activate-input-method "korean-symbol") | ||
| 33 | (throw 'quail-tag nil)) | ||
| 34 | 29 | ||
| 35 | (quail-define-package | 30 | (quail-define-package |
| 36 | "korean-hangul3" "Korean" "$(CGQ(B3" | 31 | "korean-hangul3" "Korean" "$(CGQ(B3" |
| @@ -72,8 +67,6 @@ | |||
| 72 | nil t t) | 67 | nil t t) |
| 73 | 68 | ||
| 74 | (quail-define-rules | 69 | (quail-define-rules |
| 75 | ("\\" quail-hangul-switch-to-symbol-ksc) | ||
| 76 | |||
| 77 | ("k" ?$(C$!(B) | 70 | ("k" ?$(C$!(B) |
| 78 | ("kk" ?$(C$"(B) | 71 | ("kk" ?$(C$"(B) |
| 79 | ("h" ?$(C$$(B) | 72 | ("h" ?$(C$$(B) |