From e5ecf6e91e04cc49daf3471d6775d21dd73b409d Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 16 Dec 2001 19:14:37 +0000 Subject: [PATCH] (quail-input-string-to-events): Fix last change. --- lisp/ChangeLog | 5 +++++ lisp/international/quail.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 85ed8b4c7b1..08d446f5dfc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-12-16 Eli Zaretskii + + * international/quail.el (quail-input-string-to-events): Fix last + change. + 2001-12-16 Richard M. Stallman * 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 5155f363b66..49ff236412c 100644 --- 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) -- 2.39.2