; Do not overwrite preexisting contents of unread-command-events

[gnu-emacs] / lisp / leim / quail / lrt.el

diff --git a/lisp/leim/quail/lrt.el b/lisp/leim/quail/lrt.el
index 342b52d6ab6fcd51d0d07b9edc13c07e87835fad..ed9138d2134c5336d031c57e2f4d4676ef29ca7c 100644 (file)
--- a/lisp/leim/quail/lrt.el
+++ b/lisp/leim/quail/lrt.el
@@ -41,8 +41,9 @@
            (buffer-substring (overlay-start quail-overlay)
                              (overlay-end quail-overlay))
            unread-command-events
-           (string-to-list
-            (substring quail-current-key control-flag)))
+           (append
+            (substring quail-current-key control-flag)
+             unread-command-events))
     (let ((lao-str (lao-transcribe-roman-to-lao-string quail-current-key)))
       (if (> (aref lao-str 0) 255)
          (setq quail-current-str lao-str)