Mercurial > emacs
comparison leim/quail/japanese.el @ 36834:ec1f6390f68e
(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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 Mar 2001 08:47:41 +0000 |
| parents | f40b8211dbe0 |
| children | 9e69de8a5048 |
comparison
equal
deleted
inserted
replaced
| 36833:96b2d9e4ef6d | 36834:ec1f6390f68e |
|---|---|
| 53 (if (integerp control-flag) | 53 (if (integerp control-flag) |
| 54 (setq unread-command-events | 54 (setq unread-command-events |
| 55 (list (aref quail-current-key control-flag))))))) | 55 (list (aref quail-current-key control-flag))))))) |
| 56 control-flag) | 56 control-flag) |
| 57 | 57 |
| 58 ;; Flag to control the behavior of `quail-japanese-toggle-kana'. | |
| 59 (defvar quail-japanese-kana-state nil) | |
| 60 (make-variable-buffer-local 'quail-japanese-kana-state) | |
| 61 | |
| 62 ;; Convert Hiragana <-> Katakana in the current translation region. | 58 ;; Convert Hiragana <-> Katakana in the current translation region. |
| 63 (defun quail-japanese-toggle-kana () | 59 (defun quail-japanese-toggle-kana () |
| 64 (interactive) | 60 (interactive) |
| 65 (setq quail-translating nil) | 61 (setq quail-translating nil) |
| 66 (let ((start (overlay-start quail-conv-overlay)) | 62 (let ((start (overlay-start quail-conv-overlay)) |
| 67 (end (overlay-end quail-conv-overlay))) | 63 (end (overlay-end quail-conv-overlay))) |
| 68 (setq quail-japanese-kana-state | 64 (save-excursion |
| 69 (if (eq last-command this-command) | 65 (goto-char start) |
| 70 (not quail-japanese-kana-state))) | 66 (if (re-search-forward "\\cH" end t) |
| 71 (if quail-japanese-kana-state | 67 (japanese-katakana-region start end) |
| 72 (japanese-hiragana-region start end) | 68 (japanese-hiragana-region start end))) |
| 73 (japanese-katakana-region start end)) | |
| 74 (setq quail-conversion-str | 69 (setq quail-conversion-str |
| 75 (buffer-substring (overlay-start quail-conv-overlay) | 70 (buffer-substring (overlay-start quail-conv-overlay) |
| 76 (overlay-end quail-conv-overlay))))) | 71 (overlay-end quail-conv-overlay))))) |
| 77 | 72 |
| 78 ;; Convert Hiragana in the current translation region to Kanji by KKC | 73 ;; Convert Hiragana in the current translation region to Kanji by KKC |