From: Kenichi Handa <handa@m17n.org>
Date: Tue, 15 Jul 1997 08:24:47 +0000 (+0000)
Subject: (quail-translate-key): Fix previous change.
X-Git-Tag: emacs-20.1~1149
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55e30181223a3c57974091422a1e16704ca8057d;p=emacs.git

(quail-translate-key): Fix previous change.
---

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 6632730c2ad..89a42a025af 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1165,7 +1165,9 @@ sequence counting from the head."
 	     ;; Then, return the length of "...AB".
 	     (- len 2))
 
-	    ((and quail-current-translations
+	    ((and (> len 0)
+		  (quail-lookup-key (substring quail-current-key 0 -1))
+		  quail-current-translations
 		  (not (quail-deterministic))
 		  (setq ch (aref quail-current-key (1- len)))
 		  (>= ch ?0) (<= ch ?9))