(quail-japanese-hankaku-update-translation):

Adjusted for the change of input method handling.

diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el
index 2a95fec86a063b730eb4e5307918bee34e37f1f7..4451ba31c4c1fdad895fd233ba01969c1392750e 100644 (file)
--- a/leim/quail/japanese.el
+++ b/leim/quail/japanese.el
@@ -311,24 +311,13 @@ qh:       use `japanese' package, \"qz\" puts you back to `japanese-zenkaku'
 )
 
 (defun quail-japanese-hankaku-update-translation (control-flag)
-  (cond ((eq control-flag t)
-        (insert (japanese-hankaku quail-current-str))
-        (quail-terminate-translation))
-       ((null control-flag)
-        (insert (if quail-current-str
-                    (japanese-hankaku quail-current-str)
-                  quail-current-key)))
-       (t                              ; i.e. (numberp control-flag)
-        (cond ((= (aref quail-current-key 0) ?n)
-               (insert ?\e(I]\e(B))
-              ((= (aref quail-current-key 0) (aref quail-current-key 1))
-               (insert ?\e(I/\e(B))
-              (t
-               (insert (aref quail-current-key 0))))
-        (setq unread-command-events
-              (list (aref quail-current-key control-flag)))
-        (quail-terminate-translation))))
-
+  (setq control-flag
+       (quail-japanese-update-translation control-flag))
+  (if (or (and (stringp quail-current-str)
+              (> (length quail-current-str) 0))
+         (integerp quail-current-str))
+      (setq quail-current-str (japanese-hankaku quail-current-str)))
+  control-flag)
 
 (quail-define-package
  "japanese-hankaku-kana"