Mercurial > emacs
changeset 23262:5d2f6f759380
(quail-japanese-katakana-update-translation):
Adjusted for the change of input method handling.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 16 Sep 1998 07:21:31 +0000 |
| parents | 9346958bb3d5 |
| children | 03626baa368a |
| files | leim/quail/japanese.el |
| diffstat | 1 files changed, 7 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/leim/quail/japanese.el Wed Sep 16 07:21:31 1998 +0000 +++ b/leim/quail/japanese.el Wed Sep 16 07:21:31 1998 +0000 @@ -358,23 +358,13 @@ ;; Update Quail translation region while converting Hiragana to Katakana. (defun quail-japanese-katakana-update-translation (control-flag) - (cond ((eq control-flag t) - (insert (japanese-katakana quail-current-str)) - (quail-terminate-translation)) - ((null control-flag) - (insert (if quail-current-str - (japanese-katakana quail-current-str) - quail-current-key))) - (t ; i.e. (numberp control-flag) - (cond ((= (aref quail-current-key 0) ?n) - (insert ?$B%s(B)) - ((= (aref quail-current-key 0) (aref quail-current-key 1)) - (insert ?$B%C(B)) - (t - (insert (aref quail-current-key 0)))) - (setq unread-command-events - (list (aref quail-current-key control-flag))) - (quail-terminate-translation)))) + (setq control-flag + (quail-japanese-update-translation control-flag)) + (if (or (and (stringp quail-current-str) + (> (length quail-current-str) 0)) + (integerp quail-current-str)) + (setq quail-current-str (japanese-katakana quail-current-str))) + control-flag) (quail-define-package "japanese-katakana" "Japanese" "$B%"(B"