Mercurial > emacs
comparison leim/quail/japanese.el @ 64152:a3d3e7ed5256
(quail-japanese-kanji-kkc): Fix order of
insertion and deletion.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 08 Jul 2005 00:52:05 +0000 |
| parents | 23a17af379b1 |
| children | b94a4bf1aca6 fbb2bea03df9 |
comparison
equal
deleted
inserted
replaced
| 64151:292d83423c40 | 64152:a3d3e7ed5256 |
|---|---|
| 77 (defun quail-japanese-kanji-kkc () | 77 (defun quail-japanese-kanji-kkc () |
| 78 (interactive) | 78 (interactive) |
| 79 (when (= (char-before (overlay-end quail-conv-overlay)) ?n) | 79 (when (= (char-before (overlay-end quail-conv-overlay)) ?n) |
| 80 ;; The last char is `n'. We had better convert it to `ん' | 80 ;; The last char is `n'. We had better convert it to `ん' |
| 81 ;; before kana-kanji conversion. | 81 ;; before kana-kanji conversion. |
| 82 (goto-char (overlay-end quail-conv-overlay)) | 82 (goto-char (1- (overlay-end quail-conv-overlay))) |
| 83 (delete-char -1) | 83 (insert ?ん) |
| 84 (insert ?ん)) | 84 (delete-char 1)) |
| 85 (let* ((from (copy-marker (overlay-start quail-conv-overlay))) | 85 (let* ((from (copy-marker (overlay-start quail-conv-overlay))) |
| 86 (len (- (overlay-end quail-conv-overlay) from))) | 86 (len (- (overlay-end quail-conv-overlay) from))) |
| 87 (quail-delete-overlays) | 87 (quail-delete-overlays) |
| 88 (setq quail-current-str nil) | 88 (setq quail-current-str nil) |
| 89 (unwind-protect | 89 (unwind-protect |