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

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 3356354eb82cda863a4a26cbec870deb0d6a5ac0..fabf0253ef5674cc1d7af637371460026b4707b4 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 d46746e64f8368d6f7b8e17c847dadd44425f845..76ce625d29269546a0455f09bb451c4ebbed5f5d 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)))