Mercurial > emacs

changeset 103009:96e8e1d84170

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(unidata-get-decomposition): Adjust Hangle decomposition rule to Unicode.
author Kenichi Handa <handa@m17n.org>
date Fri, 17 Apr 2009 02:35:52 +0000
parents b41af984adfa
children ed58f741d35f
files admin/unidata/unidata-gen.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/admin/unidata/unidata-gen.el	Fri Apr 17 02:31:20 2009 +0000
+++ b/admin/unidata/unidata-gen.el	Fri Apr 17 02:35:52 2009 +0000
@@ -828,11 +828,13 @@
 	  (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))))
 
    ))