summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
cdb078b)
Would most likely otherwise fail in Jamo with combining characters in
between.
(tagbody
again
(when (and (> (- i previous-starter-index) 2)
(tagbody
again
(when (and (> (- i previous-starter-index) 2)
- (= (ucd-ccc (lref result i)) (ucd-ccc (lref result (1- i)))))
+ ;; test for Blocked (Unicode 3.11 para. D115)
+ (>= (ucd-ccc (lref result (1- i)))
+ (ucd-ccc (lref result i))))
(when (= (ucd-ccc (lref result i)) 0)
(setf previous-starter-index i))
(incf i)
(when (= (ucd-ccc (lref result i)) 0)
(setf previous-starter-index i))
(incf i)