From: Kenichi Handa <handa@m17n.org>
Date: Thu, 16 Jul 1998 00:14:44 +0000 (+0000)
Subject: (quail-japanese-kanji-kkc): Adjusted for the change of quail.el.
X-Git-Tag: emacs-20.3~312
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b528110c6ce9bf2b9c1ba5b8ff2e272dfb3749c8;p=emacs.git

(quail-japanese-kanji-kkc): Adjusted for the change of quail.el.
(quail-japanese-switch-package): Likewise.
---

diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el
index 13115b7cf98..b2e0a459d08 100644
--- a/leim/quail/japanese.el
+++ b/leim/quail/japanese.el
@@ -72,18 +72,9 @@
 	(to (overlay-end quail-conv-overlay))
 	newfrom)
     (quail-delete-overlays)
-    (setq overriding-terminal-local-map nil)
-    (kkc-region from to 'quail-japanese-kkc-mode-exit)))
-
-;; Function to call on exiting KKC mode.  ARG is nil if KKC mode is
-;; exited normally, else ARG is a cons (FROM . TO) where FROM and TO
-;; specify a region not yet processed.
-(defun quail-japanese-kkc-mode-exit (arg)
-  (if arg
-      (progn
-	(setq overriding-terminal-local-map (quail-conversion-keymap))
-	(move-overlay quail-conv-overlay (car arg) (cdr arg)))
-    (run-hooks 'input-method-after-insert-chunk-hook)))
+    (let ((result (kkc-region from to)))
+      (move-overlay quail-conv-overlay (- (point) result) (point)))
+    (setq quail-converting nil)))
 
 (defun quail-japanese-self-insert-and-switch-to-alpha (key idx)
   (quail-delete-region)
@@ -103,9 +94,7 @@
 (defun quail-japanese-switch-package (key idx)
   (let ((pkg (cdr (assq (aref key (1- idx)) quail-japanese-switch-table))))
     (if (null pkg)
-	(error "No package to be switched")
-      (setq overriding-terminal-local-map nil)
-      (quail-delete-region)
+	(quail-error "No package to be switched")
       (if (stringp pkg)
 	  (activate-input-method pkg)
 	(if (string= (car pkg) current-input-method)