Mercurial > emacs

diff lisp/international/quail.el @ 18797:e9aa787f0154

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-translate-key): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Tue, 15 Jul 1997 08:24:47 +0000
parents 0fc832264117
children f61d1bd17b11
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))