From f370eb4c04b5d9aef99efe573f256e4fa85e0c6d Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 21 Jul 1998 01:42:40 +0000 Subject: [PATCH] (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. --- lisp/international/kkc.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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." -- 2.39.2