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

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/language/hanja-util.el b/lisp/language/hanja-util.el
index 8b62ee707f3..c9501d2ef8f 100644
--- 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))))