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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1849cd0172a8faecddc48f400c777bcb995d4e18..fc804a73fe5e4f820e5af63e09886e29d1dd1306 100644 (file)
--- 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 db7c53ba89fbdc2c522271e1d7d1b8dc9b196ec5..36f597b36f80df0952bc37c8d3da5c3e0cae2a67 100644 (file)
--- 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 ()