Mercurial > emacs
comparison leim/quail/japanese.el @ 90201:fbb2bea03df9
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-69
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 474-484)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 88-91)
- Merge from emacs--cvs-trunk--0
- Update FSF's address in GPL notices
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 14 Jul 2005 08:02:00 +0000 |
| parents | f9a65d7ebd29 a3d3e7ed5256 |
| children | 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 90200:f9a65d7ebd29 | 90201:fbb2bea03df9 |
|---|---|
| 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 |