(iso-accents-compose): Return composed character directly for execution.

diff --git a/lisp/international/iso-acc.el b/lisp/international/iso-acc.el
index 06c55c8c7a582d8227a30632d5910c7ca9060b17..1a76be4f2ead80bf4821d50d113aaf34b84b6f95 100644 (file)
--- a/lisp/international/iso-acc.el
+++ b/lisp/international/iso-acc.el
@@ -275,13 +275,11 @@ the language you choose).")
         (entry (cdr (assq second-char list))))
     (if entry
        ;; Found it: return the mapped char
-       (if (and enable-multibyte-characters
-                (>= entry ?\200))
-           (let ((char (+ iso-accents-insert-offset entry)))
-             (setq unread-command-events
-                   (cons (list char) unread-command-events))
-             (vector ?\C-q))
-         (vector entry))
+       (vector
+        (if (and enable-multibyte-characters
+                 (>= entry ?\200))
+            (+ iso-accents-insert-offset entry)
+          entry))
       ;; Otherwise, advance and schedule the second key for execution.
       (setq unread-command-events
            (cons (list second-char) unread-command-events))