# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1008530021 0
# Node ID 5d63f6ad77118e6ab0d74bfdbf4365152ffa32fe
# Parent  38fcd503c30076e36932ee3d5b28bd9251a999cd
(quail-input-string-to-events): Fix last change.

diff -r 38fcd503c300 -r 5d63f6ad7711 lisp/international/quail.el
--- a/lisp/international/quail.el	Sun Dec 16 18:36:50 2001 +0000
+++ b/lisp/international/quail.el	Sun Dec 16 19:13:41 2001 +0000
@@ -1270,12 +1270,14 @@
 Do so while interleaving with the following special events:
 \(compose-last-chars LEN COMPONENTS)
 \(quail-advice INPUT-STRING)"
-  (let* ((events (lambda (c)
+  (let* ((events
+	  (mapcar (lambda (c)
 		    ;; This gives us the chance to unify on input
 		    ;; (e.g. using ucs-tables.el).
 		    (or (and translation-table-for-input
 			     (aref translation-table-for-input c))
-			c)))
+			c))
+		  (string-to-list str)))
 	 (len (length str))
 	 (idx len)
 	 composition from to)