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

diff --git a/leim/ChangeLog b/leim/ChangeLog
index fb81d395a34fe32c6af026e24ce129b5c8648cad..d47c9df77d0d0e5a3f492ca9c19ce16372b802ce 100644 (file)
--- 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 ee0fdaee468c175874e033a620ce9c96eaab63f2..6ebfd2ef03c35ef44918c7c4e9ed556f520f0099 100644 (file)
--- 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.")