1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00

(unidata-get-decomposition): Adjust Hangle decomposition rule to

Unicode.
This commit is contained in:
Kenichi Handa 2009-04-17 02:36:03 +00:00
parent 293a9e7a83
commit 88758986d5
2 changed files with 8 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2009-04-17 Kenichi Handa <handa@m17n.org>
* unidata/unidata-gen.el (unidata-get-decomposition): Adjust
Hangle decomposition rule to Unicode.
2009-04-09 Kenichi Handa <handa@m17n.org>
* unidata/unidata-gen.el (unidata-describe-decomposition): Return

View File

@ -828,11 +828,13 @@ Property value is a character."
(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))))
))