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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 85ed8b4c7b1fe786084b5ba5ec667516c43ca559..08d446f5dfc88c6df41947d6269fe8f93e6c4ae4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-16  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * international/quail.el (quail-input-string-to-events): Fix last
+       change.
+
 2001-12-16  Richard M. Stallman  <rms@gnu.org>
 
        * subr.el (temp-buffer-show-hook, temp-buffer-setup-hook): Add defvars.

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 5155f363b665f2a317b83059dfa599f70f0e0cfc..49ff236412ca98af003533a0d9897f104932b0c2 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1270,12 +1270,14 @@ The returned value is a Quail map specific to KEY."
 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)