(hangul3-input-method-jong): Fix array indexing bug.

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 3356354..fabf025 100644 (file)
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,8 @@
+2008-08-10  Jihyun Cho  <jihyun.jo@gmail.com>
+
+       * quail/hangul.el (hangul3-input-method-jong): Fix array indexing
+       bug.
+
 2008-07-19  Juri Linkov  <juri@jurta.org>
 
        * quail/cyrillic.el ("cyrillic-translit"): Add two rules "//'" and

diff --git a/leim/quail/hangul.el b/leim/quail/hangul.el
index d46746e..76ce625 100644 (file)
--- a/leim/quail/hangul.el
+++ b/leim/quail/hangul.el
@@ -333,7 +333,7 @@ Other parts are the same as a `hangul3-input-method-cho'."
                         'jong
                         (aref hangul-queue 4)
                         char)))))
-             (aset hangul-queue 6 char)))
+             (aset hangul-queue 5 char)))
       (hangul-insert-character hangul-queue)
     (if (zerop (apply '+ (append hangul-queue nil)))
        (hangul-insert-character (setq hangul-queue (vector 0 0 0 0 char 0)))