From 93f6ccd997abd7f4fcefeec1e4383e0249f0df01 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sun, 14 Apr 2013 20:02:08 +0100 Subject: [PATCH] fix test for Blocked condition in canonical normalization Would most likely otherwise fail in Jamo with combining characters in between. --- src/code/target-char.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp index 6791452..ef51c23 100644 --- a/src/code/target-char.lisp +++ b/src/code/target-char.lisp @@ -773,7 +773,9 @@ character exists." (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) -- 1.7.10.4