diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-07-19 05:17:35 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-07-19 05:17:35 +0000 |
| commit | 261f49de5075c1b7a8e61db53b243b3e2191252e (patch) | |
| tree | c016905177d7a94fcb86083d6bf25c9c1638aa49 | |
| parent | 2c33748599df6a51e77f44828e38da0fdd83b47d (diff) | |
| download | emacs-261f49de5075c1b7a8e61db53b243b3e2191252e.tar.gz | |
(quail-japanese-update-translation): Handle
a key which should fix the current translation and start a new
translation correctly.
(quail-japanese-toggle-kana): Set quail-translating to nil. Don't
change point.
| -rw-r--r-- | leim/quail/japanese.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el index b2e0a459d08..42df5372d37 100644 --- a/leim/quail/japanese.el +++ b/leim/quail/japanese.el @@ -36,7 +36,10 @@ ((null control-flag) (if (/= (aref quail-current-key 0) ?q) (insert (or quail-current-str quail-current-key)))) - (t ; i.e. (numberp control-flag) + ((= control-flag 0) + (insert (aref quail-current-key 0)) + (quail-terminate-translation)) + (t (cond ((= (aref quail-current-key 0) ?n) (insert ?ん)) ((= (aref quail-current-key 0) (aref quail-current-key 1)) @@ -54,6 +57,7 @@ ;; Convert Hiragana <-> Katakana in the current translation region. (defun quail-japanese-toggle-kana () (interactive) + (setq quail-translating nil) (let ((start (overlay-start quail-conv-overlay)) (end (overlay-end quail-conv-overlay))) (setq quail-japanese-kana-state @@ -61,8 +65,7 @@ (not quail-japanese-kana-state))) (if quail-japanese-kana-state (japanese-hiragana-region start end) - (japanese-katakana-region start end)) - (goto-char (overlay-end quail-conv-overlay)))) + (japanese-katakana-region start end)))) ;; Convert Hiragana in the current translation region to Kanji by KKC ;; (Kana Kanji Converter) utility. |