? hangul-array-patch.diff
Index: emacs/leim/quail/hangul.el
===================================================================
RCS file: /sources/emacs/emacs/leim/quail/hangul.el,v
retrieving revision 1.23
diff -u -8 -p -r1.23 hangul.el
--- emacs/leim/quail/hangul.el	7 Jun 2008 12:42:33 -0000	1.23
+++ emacs/leim/quail/hangul.el	10 Aug 2008 05:11:37 -0000
@@ -328,17 +328,17 @@ Other parts are the same as a `hangul3-i
                         'jung
                         (aref hangul-queue 2)
                         (aref hangul-queue 3)))
                     (+ (aref hangul-queue 4)
                        (hangul-djamo
                         '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)))
       (hangul-insert-character hangul-queue
 			       (setq hangul-queue (vector 0 0 0 0 char 0))))))
 
 (defun hangul-delete-backward-char ()
   "Delete the previous hangul character by Jaso units."