comparison leim/quail/japanese.el @ 24067:89706001ab78

(quail-japanese-kanji-kkc): If the last char to convert is `n', change it to Japanese Hiragana `n' before conversion.

24066:7914a815df8b

;; Convert Hiragana in the current translation region to Kanji by KKC
;; (Kana Kanji Converter) utility.
(defun quail-japanese-kanji-kkc ()
  (interactive)
  (let ((from (overlay-start quail-conv-overlay))
	(to (overlay-end quail-conv-overlay))
	newfrom)
    (quail-delete-overlays)
    (let ((result (kkc-region from to)))
      (move-overlay quail-conv-overlay from (point))
      (setq quail-conversion-str (buffer-substring from (point)))
      (if (= (+ from result) (point))
	  (setq quail-converting nil))

24067:89706001ab78

;; Convert Hiragana in the current translation region to Kanji by KKC
;; (Kana Kanji Converter) utility.
(defun quail-japanese-kanji-kkc ()
  (interactive)
  (let ((from (overlay-start quail-conv-overlay))
	(to (overlay-end quail-conv-overlay)))
    (quail-delete-overlays)
    (setq quail-current-str nil)
    (when (= (char-before to) ?n)
      ;; The last char is `n'.  We had better convert it to `ん'
      ;; before kana-kanji conversion.
      (goto-char to)
      (delete-char -1)
      (insert ?ん))
    (let ((result (kkc-region from to)))
      (move-overlay quail-conv-overlay from (point))
      (setq quail-conversion-str (buffer-substring from (point)))
      (if (= (+ from result) (point))
	  (setq quail-converting nil))