From: Kenichi Handa <handa@m17n.org>
Date: Tue, 21 Jul 1998 01:42:40 +0000 (+0000)
Subject: (kkc-region): Handled the case that
X-Git-Tag: emacs-20.3~285
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f370eb4c04b5d9aef99efe573f256e4fa85e0c6d;p=emacs.git

(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 810550cc7fa..ba9ec6f910f 100644
--- 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."