[Emacs-diffs] emacs/admin/unidata unidata-gen.el

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/04/17 02:35:52

Modified files:
        admin/unidata  : unidata-gen.el 

Log message:
        (unidata-get-decomposition): Adjust Hangle decomposition rule to
        Unicode.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/admin/unidata/unidata-gen.el?cvsroot=emacs&r1=1.11&r2=1.12

Patches:
Index: unidata-gen.el
===================================================================
RCS file: /cvsroot/emacs/emacs/admin/unidata/unidata-gen.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- unidata-gen.el      9 Apr 2009 11:06:23 -0000       1.11
+++ unidata-gen.el      17 Apr 2009 02:35:52 -0000      1.12
@@ -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))))
 
    ))