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

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

diff --git a/lisp/leim/quail/hangul.el b/lisp/leim/quail/hangul.el
index 12d7358841bd9a88e88a3e6609c804f0e8d68871..56a244f45740629ae7473709710f948aac6e6f2e 100644 (file)
--- a/lisp/leim/quail/hangul.el
+++ b/lisp/leim/quail/hangul.el
@@ -410,7 +410,9 @@ When a Korean input method is off, convert the following hangul character."
                      ((commandp cmd)
                       (call-interactively cmd))
                      (t
-                      (setq unread-command-events (listify-key-sequence seq))
+                      (setq unread-command-events
+                             (nconc (listify-key-sequence seq)
+                                    unread-command-events))
                       (throw 'exit-input-loop nil))))))
        (quail-delete-overlays)))))
 
@@ -454,7 +456,9 @@ When a Korean input method is off, convert the following hangul character."
                      ((commandp cmd)
                       (call-interactively cmd))
                      (t
-                      (setq unread-command-events (listify-key-sequence seq))
+                      (setq unread-command-events
+                             (nconc (listify-key-sequence seq)
+                                    unread-command-events))
                       (throw 'exit-input-loop nil))))))
        (quail-delete-overlays)))))
 
@@ -499,7 +503,9 @@ When a Korean input method is off, convert the following hangul character."
                      ((commandp cmd)
                       (call-interactively cmd))
                      (t
-                      (setq unread-command-events (listify-key-sequence seq))
+                      (setq unread-command-events
+                             (nconc (listify-key-sequence seq)
+                                    unread-command-events))
                       (throw 'exit-input-loop nil))))))
        (quail-delete-overlays)))))