diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-09-25 07:32:05 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-09-25 07:32:05 +0000 |
| commit | bcc1e3787505560e25acf3a6b79a3720ba38d9a9 (patch) | |
| tree | 3ec694af7471f2eda94b8f2377a928750862b1f5 /leim | |
| parent | fdfcf19d011ff49e5191da329e992150c89b05b7 (diff) | |
| download | emacs-bcc1e3787505560e25acf3a6b79a3720ba38d9a9.tar.gz | |
(quail-japanese-hankaku-update-translation):
Adjusted for the change of input method handling.
Diffstat (limited to 'leim')
| -rw-r--r-- | leim/quail/japanese.el | 25 |
1 files changed, 7 insertions, 18 deletions
diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el index 2a95fec86a0..4451ba31c4c 100644 --- a/leim/quail/japanese.el +++ b/leim/quail/japanese.el @@ -311,24 +311,13 @@ qh: use `japanese' package, \"qz\" puts you back to `japanese-zenkaku' ) (defun quail-japanese-hankaku-update-translation (control-flag) - (cond ((eq control-flag t) - (insert (japanese-hankaku quail-current-str)) - (quail-terminate-translation)) - ((null control-flag) - (insert (if quail-current-str - (japanese-hankaku quail-current-str) - quail-current-key))) - (t ; i.e. (numberp control-flag) - (cond ((= (aref quail-current-key 0) ?n) - (insert ?(I](B)) - ((= (aref quail-current-key 0) (aref quail-current-key 1)) - (insert ?(I/(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-hankaku quail-current-str))) + control-flag) (quail-define-package "japanese-hankaku-kana" |