Mercurial > emacs
comparison admin/unidata/unidata-gen.el @ 103009:96e8e1d84170
(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 | 3c5ac8f47c5d |
children | 0dd3b08296b6 |
comparison
equal
deleted
inserted
replaced
103008:b41af984adfa | 103009:96e8e1d84170 |
---|---|
826 (setq char (- char #xAC00)) | 826 (setq char (- char #xAC00)) |
827 (let (;; L = LBase + SIndex / NCount | 827 (let (;; L = LBase + SIndex / NCount |
828 (L (+ #x1100 (/ char 588))) | 828 (L (+ #x1100 (/ char 588))) |
829 ;; V = VBase + (SIndex % NCount) * TCount | 829 ;; V = VBase + (SIndex % NCount) * TCount |
830 (V (+ #x1161 (/ (% char 588) 28))) | 830 (V (+ #x1161 (/ (% char 588) 28))) |
831 ;; LV = SBase + (SIndex / NCount) * NCount | |
832 (LV (+ #xAC00 (* (/ char 588) 588))) | |
831 ;; T = TBase + SIndex % TCount | 833 ;; T = TBase + SIndex % TCount |
832 (T (+ #x11A7 (% char 28)))) | 834 (T (+ #x11A7 (% char 28)))) |
833 (if (= T #x11A7) | 835 (if (= T #x11A7) |
834 (list L V) | 836 (list L V) |
835 (list L V T)))) | 837 (list LV T)))) |
836 | 838 |
837 )) | 839 )) |
838 | 840 |
839 ;; Store VAL as the decomposition information of CHAR in TABLE. | 841 ;; Store VAL as the decomposition information of CHAR in TABLE. |
840 | 842 |