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

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 292ea24516c08557b22b7b512ca1dc59c173a398..5ab169c0df8b682ab495522b22890cb743da48db 100644 (file)
--- 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 7fecb999d35401cad8211676a7623c8262ef56eb..cd2343b9d0326d2ec8e4530654daaa17f71014ef 100644 (file)
--- 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)