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 | ebe8a0daf5a9e6d37994956d651382e5709f9242 (patch) | |
| tree | f93e9b67796573af4f35c6d85a4b791474001936 /leim/quail/japanese.el | |
| parent | a2abd6b460a6c8c36c6e61fac099778b73ce3559 (diff) | |
| download | emacs-ebe8a0daf5a9e6d37994956d651382e5709f9242.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.
Diffstat (limited to 'leim/quail/japanese.el')
| -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. |