(unidata-get-decomposition): Adjust Hangle decomposition rule to

Unicode.

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 8e3a484..292ea24 100644 (file)
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-17  Kenichi Handa  <handa@m17n.org>
+
+       * unidata/unidata-gen.el (unidata-get-decomposition): Adjust
+       Hangle decomposition rule to Unicode.
+
 2009-04-09  Kenichi Handa  <handa@m17n.org>
 
        * unidata/unidata-gen.el (unidata-describe-decomposition): Return

diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el
index 5a03fd7..7fecb99 100644 (file)
--- a/admin/unidata/unidata-gen.el
+++ b/admin/unidata/unidata-gen.el
@@ -828,11 +828,13 @@ 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)))
          ;; T = TBase + SIndex % TCount
          (T (+ #x11A7 (% char 28))))
       (if (= T #x11A7)
          (list L V)
-       (list L V T))))
+       (list LV T))))
 
    ))