Remove duplicate binding

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

diff --git a/lisp/language/hanja-util.el b/lisp/language/hanja-util.el
index bd6610834067455c03051aefd3eda302900fa13f..a87684278248499091d8b54ff8b3175d222e72e3 100644 (file)
--- a/lisp/language/hanja-util.el
+++ b/lisp/language/hanja-util.el
@@ -1,6 +1,6 @@
 ;;; hanja-util.el --- Korean Hanja util module  -*- coding: utf-8 -*-
 
-;; Copyright (C) 2008-2011  Free Software Foundation, Inc.
+;; Copyright (C) 2008-2016 Free Software Foundation, Inc.
 
 ;; Author: Jihyun Cho <jihyun.jo@gmail.com>
 ;; Keywords: multilingual, input method, Korean, Hanja
@@ -6438,7 +6438,7 @@ character.  This variable is initialized by `hanja-init-load'.")
 
 ;; List of current conversion status.
 ;; The first element is the strating position of shown list.
-;; It is a group number each splited by `hanja-list-width'.
+;; It is a group number each split by `hanja-list-width'.
 ;; The second element is the position of selected element.
 ;; The third element is a list of suitable Hanja candidate.
 (defvar hanja-conversions
@@ -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))))