(kkc-region): Handled the case that

conversion is cancelled.
(kkc-terminate): Update kkc-overlay-head correctly.
(kkc-cancel): Don't call kkc-terminate, but set kkc-converting to
nil.

diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index 810550cc7faaea17ed23f2999b9eafd098e9e9f4..ba9ec6f910f1b910af5ca223bca98436be63348d 100644 (file)
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -232,17 +232,19 @@ and the return value is the length of the conversion."
          ;; Let's put the event back.
          (setq unread-input-method-events
                (append (string-to-list keyseq) unread-input-method-events))
-         (setq kkc-converting nil)))))
+         (kkc-terminate)))))
 
   (force-mode-line-update)
   (goto-char (overlay-end kkc-overlay-tail))
-  (prog1 (- (point) from)
+  (prog1 (- (overlay-start kkc-overlay-head) from)
     (delete-overlay kkc-overlay-head)
     (delete-overlay kkc-overlay-tail)))
 
 (defun kkc-terminate ()
   "Exit from KKC mode by fixing the current conversion."
   (interactive)
+  (goto-char (overlay-end kkc-overlay-tail))
+  (move-overlay kkc-overlay-head (point) (point))
   (setq kkc-converting nil))
 
 (defun kkc-cancel ()
@@ -252,7 +254,7 @@ and the return value is the length of the conversion."
   (delete-region (overlay-start kkc-overlay-head)
                 (overlay-end kkc-overlay-tail))
   (insert kkc-original-kana)
-  (kkc-terminate))
+  (setq kkc-converting nil))
 
 (defun kkc-first-char-only ()
   "Select only the first character currently converted."