# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1282975124 -32400
# Node ID d0fc9cc79b2b69e8e9fd469d69611a9cb412ce37
# Parent  7d94b3a3495555b416ce58fdf732d82c2c847aeb
quail/japanese.el (quail-japanese-update-translation): Fix handling of invalid key.

diff -r 7d94b3a34955 -r d0fc9cc79b2b leim/ChangeLog
--- a/leim/ChangeLog	Thu Aug 26 12:42:08 2010 +0900
+++ b/leim/ChangeLog	Sat Aug 28 14:58:44 2010 +0900
@@ -1,3 +1,8 @@
+2010-08-28  Kenichi Handa  <handa@m17n.org>
+
+	* quail/japanese.el (quail-japanese-update-translation): Fix
+	handling of invalid key.
+
 2010-08-15  Andreas Schwab  <schwab@linux-m68k.org>
 
 	* quail/vntelex.el ("vietnamese-telex"): Doc fix.
diff -r 7d94b3a34955 -r d0fc9cc79b2b leim/quail/japanese.el
--- a/leim/quail/japanese.el	Thu Aug 26 12:42:08 2010 +0900
+++ b/leim/quail/japanese.el	Sat Aug 28 14:58:44 2010 +0900
@@ -43,20 +43,25 @@
 		(or quail-current-str quail-current-key)
 	      ""))
     (if (integerp control-flag)
-	(if (= control-flag 0)
-	    (setq quail-current-str (aref quail-current-key 0))
-	  (cond ((= (aref quail-current-key 0) ?n)
+	(let ((keylen (length quail-current-key)))
+	  (cond ((= control-flag 0)
+		 (setq quail-current-str (aref quail-current-key 0)
+		       control-flag t))
+		((= (aref quail-current-key 0) ?n)
 		 (setq quail-current-str ?ん)
 		 (if (and quail-japanese-use-double-n
+			  (> keylen 0)
 			  (= (aref quail-current-key 1) ?n))
 		     (setq control-flag t)))
-		((= (aref quail-current-key 0) (aref quail-current-key 1))
+		((and (> keylen 1)
+		      (= (aref quail-current-key 0) (aref quail-current-key 1)))
 		 (setq quail-current-str ?っ))
 		(t
 		 (setq quail-current-str (aref quail-current-key 0))))
 	  (if (integerp control-flag)
 	      (setq unread-command-events
-		    (list (aref quail-current-key control-flag)))))))
+		    (string-to-list
+		     (substring quail-current-key control-flag)))))))
   control-flag)
 
 ;; Convert Hiragana <-> Katakana in the current translation region.