# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1059205221 0
# Node ID 520603204d7cdccab135d6a7e8cf2cf7d706fec3
# Parent  eeb5d4fd97e1b61de8a4a55fcd58266d3183fe26
(quail-translate-key): Fix previous change.

diff -r eeb5d4fd97e1 -r 520603204d7c lisp/international/quail.el
--- a/lisp/international/quail.el	Fri Jul 25 12:21:01 2003 +0000
+++ b/lisp/international/quail.el	Sat Jul 26 07:40:21 2003 +0000
@@ -1694,7 +1694,8 @@
 	     ;; No way to handle the last character in this context.
 	     (setq def (quail-map-definition
 			(quail-lookup-key quail-current-key (1- len))))
-	     (setq quail-current-str (quail-get-current-str (1- len) def))
+	     (if def (setq quail-current-str
+			   (quail-get-current-str (1- len) def)))
 	     (1- len))))))
 
 (defun quail-next-translation ()