diff options
| author | Kenichi Handa <handa@m17n.org> | 2001-03-16 08:47:41 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2001-03-16 08:47:41 +0000 |
| commit | bda0f1b37ec2719ca0176c013ea745c59f638b1f (patch) | |
| tree | 890a7a0e5bd5453c47abf725af08baf89de612fd /leim | |
| parent | 1bdfe1880c14a170f3867a98274f228e28e13be3 (diff) | |
| download | emacs-bda0f1b37ec2719ca0176c013ea745c59f638b1f.tar.gz | |
(quail-japanese-kana-state): Delete this variable.
(quail-japanese-toggle-kana): Don't use quail-japanese-kana-state,
instead check if there's any Hiraganas in the converison region.
Diffstat (limited to 'leim')
| -rw-r--r-- | leim/quail/japanese.el | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el index 0b28aa0e7c0..69239d5b9f6 100644 --- a/leim/quail/japanese.el +++ b/leim/quail/japanese.el @@ -55,22 +55,17 @@ (list (aref quail-current-key control-flag))))))) control-flag) -;; Flag to control the behavior of `quail-japanese-toggle-kana'. -(defvar quail-japanese-kana-state nil) -(make-variable-buffer-local 'quail-japanese-kana-state) - ;; 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 - (if (eq last-command this-command) - (not quail-japanese-kana-state))) - (if quail-japanese-kana-state - (japanese-hiragana-region start end) - (japanese-katakana-region start end)) + (save-excursion + (goto-char start) + (if (re-search-forward "\\cH" end t) + (japanese-katakana-region start end) + (japanese-hiragana-region start end))) (setq quail-conversion-str (buffer-substring (overlay-start quail-conv-overlay) (overlay-end quail-conv-overlay))))) |