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

(quail-japanese-kanji-kkc): Handle the case
that conversion is cancelled in kkc-region.
(quail-japanese-switch-package): Fix previous change.
---

diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el
index 42df5372d37..f1241b452fc 100644
--- a/leim/quail/japanese.el
+++ b/leim/quail/japanese.el
@@ -76,8 +76,9 @@
 	newfrom)
     (quail-delete-overlays)
     (let ((result (kkc-region from to)))
-      (move-overlay quail-conv-overlay (- (point) result) (point)))
-    (setq quail-converting nil)))
+      (move-overlay quail-conv-overlay from (point))
+      (if (= (+ from result) (point))
+	  (setq quail-converting nil)))))
 
 (defun quail-japanese-self-insert-and-switch-to-alpha (key idx)
   (quail-delete-region)
@@ -95,6 +96,8 @@
 (put 'quail-japanese-package-saved 'permanent-local t)
 
 (defun quail-japanese-switch-package (key idx)
+  (quail-delete-region)
+  (setq quail-converting nil)
   (let ((pkg (cdr (assq (aref key (1- idx)) quail-japanese-switch-table))))
     (if (null pkg)
 	(quail-error "No package to be switched")