(hangul-im-keymap): Add binding of key Hangul_Hanja.

2 files changed, 6 insertions, 0 deletions

diff --git a/leim/ChangeLog b/leim/ChangeLog
index fb81d395a34..d47c9df77d0 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,8 @@
+2009-06-18  Kenichi Handa  <handa@m17n.org>
+
+        * quail/hangul.el (hangul-im-keymap): Add binding of key
+        Hangul_Hanja.
+
 2009-05-04   Simon Leinen  <simon.leinen@switch.ch>  (tiny change)
 
         * Makefile.in (install): Avoid using $$(..) construct, for Solaris
diff --git a/leim/quail/hangul.el b/leim/quail/hangul.el
index ee0fdaee468..6ebfd2ef03c 100644
--- a/leim/quail/hangul.el
+++ b/leim/quail/hangul.el
@@ -91,6 +91,7 @@
   (let ((map (make-sparse-keymap)))
     (define-key map "\d" 'hangul-delete-backward-char)
     (define-key map [f9] 'hangul-to-hanja-conversion)
+    (define-key map [Hangul_Hanja] 'hangul-to-hanja-conversion)
     map)
   "Keymap for Hangul method.  It is used by all Hangul input methods.")