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

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/04/21 02:11:13

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

Log message:
        (unidata-get-decomposition): Fix previous change.

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

Patches:
Index: unidata-gen.el
===================================================================
RCS file: /cvsroot/emacs/emacs/admin/unidata/unidata-gen.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- unidata-gen.el      17 Apr 2009 02:35:52 -0000      1.12
+++ unidata-gen.el      21 Apr 2009 02:11:13 -0000      1.13
@@ -828,8 +828,8 @@
          (L (+ #x1100 (/ char 588)))
          ;; V = VBase + (SIndex % NCount) * TCount
          (V (+ #x1161 (/ (% char 588) 28)))
-         ;; LV = SBase + (SIndex / NCount) * NCount
-         (LV (+ #xAC00 (* (/ char 588) 588)))
+         ;; LV = SBase + (SIndex / TCount) * TCount
+         (LV (+ #xAC00 (* (/ char 28) 28)))
          ;; T = TBase + SIndex % TCount
          (T (+ #x11A7 (% char 28))))
       (if (= T #x11A7)