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

[gnu-emacs] / lisp / language / hanja-util.el

diff --git a/lisp/language/hanja-util.el b/lisp/language/hanja-util.el
index 8b62ee707f334771e53a142ddb9e77db859a7521..c9501d2ef8fbcc07daeb677baa7fb16dbeb14e56 100644 (file)
--- a/lisp/language/hanja-util.el
+++ b/lisp/language/hanja-util.el
@@ -6585,7 +6585,9 @@ The value is a hanja character that is selected interactively."
                     (cmd (lookup-key hanja-keymap seq)))
                (if (functionp cmd)
                    (funcall cmd)
-                 (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))))))
       (setq hanja-conversions nil))))