79 |
(when (= (char-before (overlay-end quail-conv-overlay)) ?n) |
(when (= (char-before (overlay-end quail-conv-overlay)) ?n) |
80 |
;; The last char is `n'. We had better convert it to `ん' |
;; The last char is `n'. We had better convert it to `ん' |
81 |
;; before kana-kanji conversion. |
;; before kana-kanji conversion. |
82 |
(goto-char (overlay-end quail-conv-overlay)) |
(goto-char (1- (overlay-end quail-conv-overlay))) |
83 |
(delete-char -1) |
(insert ?ん) |
84 |
(insert ?ん)) |
(delete-char 1)) |
85 |
(let* ((from (copy-marker (overlay-start quail-conv-overlay))) |
(let* ((from (copy-marker (overlay-start quail-conv-overlay))) |
86 |
(len (- (overlay-end quail-conv-overlay) from))) |
(len (- (overlay-end quail-conv-overlay) from))) |
87 |
(quail-delete-overlays) |
(quail-delete-overlays) |