(quail-input-string-to-events): Don't generate compose-chars-after

events.

1 files changed, 10 insertions, 23 deletions

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index a548a5729fd..f5b41ba8238 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1267,29 +1267,16 @@ The returned value is a Quail map specific to KEY."
 
 (defun quail-input-string-to-events (str)
   "Convert input string STR to a list of events.
-Do so while interleaving with the following special events:
-\(compose-last-chars LEN COMPONENTS)
-\(quail-advice INPUT-STRING)"
-  (let* ((events (mapcar
-                  (lambda (c)
-                    ;; This gives us the chance to unify on input
-                    ;; (e.g. using ucs-tables.el).
-                    ;; Fixme: Is this still useful?  (See also mule-conf.el.)
-                    (or (and translation-table-for-input
-                             (aref translation-table-for-input c))
-                        c))
-                  str))
-         (len (length str))
-         (idx len)
-         composition from to)
-    (while (and (> idx 0)
-                (setq composition (find-composition idx 0 str t)))
-      (setq from (car composition) to (nth 1 composition))
-      (setcdr (nthcdr (1- to) events)
-              (cons (list 'compose-last-chars (- to from)
-                          (and (not (nth 3 composition)) (nth 2 composition)))
-                    (nthcdr to events)))
-      (setq idx (1- from)))
+If STR has `advice' text property, append the following special event:
+\(quail-advice STR)"
+  (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))
+                 str)))
     (if (or (get-text-property 0 'advice str)
             (next-single-property-change 0 'advice str))
         (setq events