Mercurial > emacs

changeset 24067:89706001ab78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-japanese-kanji-kkc): If the last char to convert is `n', change it to Japanese Hiragana `n' before conversion.
author Kenichi Handa <handa@m17n.org>
date Thu, 14 Jan 1999 01:20:35 +0000
parents 7914a815df8b
children 4c04dff8f129
files leim/quail/japanese.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/leim/quail/japanese.el	Thu Jan 14 01:20:35 1999 +0000
+++ b/leim/quail/japanese.el	Thu Jan 14 01:20:35 1999 +0000
@@ -80,9 +80,15 @@
 (defun quail-japanese-kanji-kkc ()
   (interactive)
   (let ((from (overlay-start quail-conv-overlay))
-	(to (overlay-end quail-conv-overlay))
-	newfrom)
+	(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)))