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:
parent
293a9e7a83
commit
88758986d5
@ -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
|
||||
|
@ -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))))
|
||||
|
||||
))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user