Mercurial > emacs
comparison admin/unidata/unidata-gen.el @ 90176:dfbe37c15be3
(unidata-get-decomposition): For Hangul
decomposition, if T is the same as TBase, don't include it in the
returned list.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 12 May 2005 01:49:40 +0000 |
parents | f3973ae57d8b |
children | 30275283f62d |
comparison
equal
deleted
inserted
replaced
90175:d52532c24464 | 90176:dfbe37c15be3 |
---|---|
771 (L (+ #x1100 (/ char 588))) | 771 (L (+ #x1100 (/ char 588))) |
772 ;; V = VBase + (SIndex % NCount) * TCount | 772 ;; V = VBase + (SIndex % NCount) * TCount |
773 (V (+ #x1161 (/ (% char 588) 28))) | 773 (V (+ #x1161 (/ (% char 588) 28))) |
774 ;; T = TBase + SIndex % TCount | 774 ;; T = TBase + SIndex % TCount |
775 (T (+ #x11A7 (% char 28)))) | 775 (T (+ #x11A7 (% char 28)))) |
776 (list L V T))) | 776 (if (= T #x11A7) |
777 (list L V) | |
778 (list L V T)))) | |
777 | 779 |
778 )) | 780 )) |
779 | 781 |
780 ;; Store VAL as the decomposition information of CHAR in TABLE. | 782 ;; Store VAL as the decomposition information of CHAR in TABLE. |
781 | 783 |