diff options
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/ChangeLog | 5 | ||||
| -rw-r--r-- | admin/unidata/unidata-gen.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/admin/ChangeLog b/admin/ChangeLog index 8e3a484f1f1..292ea24516c 100644 --- 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 5a03fd71431..7fecb999d35 100644 --- 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)))) )) |