changeset 18797:e9aa787f0154

(quail-translate-key): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Tue, 15 Jul 1997 08:24:47 +0000
parents ab40b57484c1
children d4c708a5f181
files lisp/international/quail.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/quail.el	Tue Jul 15 08:24:47 1997 +0000
+++ b/lisp/international/quail.el	Tue Jul 15 08:24:47 1997 +0000
@@ -1165,7 +1165,9 @@
 	     ;; 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))