(unidata-get-decomposition): Fix previous change.

2 files changed, 7 insertions, 2 deletions

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 292ea24516c..5ab169c0df8 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-21  Kenichi Handa  <handa@m17n.org>
+
+        * unidata/unidata-gen.el (unidata-get-decomposition): Fix previous
+        change.
+
 2009-04-17  Kenichi Handa  <handa@m17n.org>
 
         * unidata/unidata-gen.el (unidata-get-decomposition): Adjust
diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el
index 7fecb999d35..cd2343b9d03 100644
--- a/admin/unidata/unidata-gen.el
+++ b/admin/unidata/unidata-gen.el
@@ -828,8 +828,8 @@ Property value is a character."
           (L (+ #x1100 (/ char 588)))
           ;; V = VBase + (SIndex % NCount) * TCount
           (V (+ #x1161 (/ (% char 588) 28)))
-          ;; LV = SBase + (SIndex / NCount) * NCount
-          (LV (+ #xAC00 (* (/ char 588) 588)))
+          ;; LV = SBase + (SIndex / TCount) * TCount
+          (LV (+ #xAC00 (* (/ char 28) 28)))
           ;; T = TBase + SIndex % TCount
           (T (+ #x11A7 (% char 28))))
       (if (= T #x11A7)