From: Kenichi Handa <handa@m17n.org>
Date: Sat, 26 Jul 2003 07:41:08 +0000 (+0000)
Subject: (quail-translate-key): Fix previous change.
X-Git-Tag: ttn-vms-21-2-B4~9231
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53e89326a11345c28e6962b205af3bdce6cbf515;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1849cd0172a..fc804a73fe5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-26  Markus Rost  <rost@math.ohio-state.edu>
+
+	* international/quail.el (quail-translate-key): Fix previous
+	change.
+
 2003-07-25  John Paul Wallington  <jpw@gnu.org>
 
 	* server.el (server-start): Check `server-process' is non-nil
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index db7c53ba89f..36f597b36f8 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1694,7 +1694,8 @@ sequence counting from the head."
 	     ;; 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 ()