aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--leim/quail/japanese.el10
1 files changed, 8 insertions, 2 deletions
diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el
index 4451ba31c4c..6a6036a3c90 100644
--- a/leim/quail/japanese.el
+++ b/leim/quail/japanese.el
@@ -80,9 +80,15 @@
80(defun quail-japanese-kanji-kkc () 80(defun quail-japanese-kanji-kkc ()
81 (interactive) 81 (interactive)
82 (let ((from (overlay-start quail-conv-overlay)) 82 (let ((from (overlay-start quail-conv-overlay))
83 (to (overlay-end quail-conv-overlay)) 83 (to (overlay-end quail-conv-overlay)))
84 newfrom)
85 (quail-delete-overlays) 84 (quail-delete-overlays)
85 (setq quail-current-str nil)
86 (when (= (char-before to) ?n)
87 ;; The last char is `n'. We had better convert it to `ん'
88 ;; before kana-kanji conversion.
89 (goto-char to)
90 (delete-char -1)
91 (insert ?ん))
86 (let ((result (kkc-region from to))) 92 (let ((result (kkc-region from to)))
87 (move-overlay quail-conv-overlay from (point)) 93 (move-overlay quail-conv-overlay from (point))
88 (setq quail-conversion-str (buffer-substring from (point))) 94 (setq quail-conversion-str (buffer-substring from (point)))