From 88758986d503023e3304f2923a9460ed1a956d50 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 17 Apr 2009 02:36:03 +0000 Subject: [PATCH] (unidata-get-decomposition): Adjust Hangle decomposition rule to Unicode. --- admin/ChangeLog | 5 +++++ admin/unidata/unidata-gen.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * unidata/unidata-gen.el (unidata-get-decomposition): Adjust + Hangle decomposition rule to Unicode. + 2009-04-09 Kenichi Handa * 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)))) ))