diff lisp/international/quail.el @ 42085:5d63f6ad7711

(quail-input-string-to-events): Fix last change.

--- 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)