From: Kenichi Handa <handa@m17n.org>
Date: Fri, 25 Sep 1998 07:32:05 +0000 (+0000)
Subject: (quail-japanese-hankaku-update-translation):
X-Git-Tag: emacs-20.4~1633
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcc1e3787505560e25acf3a6b79a3720ba38d9a9;p=emacs.git

(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 2a95fec86a0..4451ba31c4c 100644
--- 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 ?(I](B))
-	       ((= (aref quail-current-key 0) (aref quail-current-key 1))
-		(insert ?(I/(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"