diff --git a/modules/intermediate_format/whitespace-handling.xqm b/modules/intermediate_format/whitespace-handling.xqm index 66539a4a3050e5c65eb9e245a7fb9384cebdb6b1..030af1704362cbff491e2d61dd00b2159d4cf85d 100644 --- a/modules/intermediate_format/whitespace-handling.xqm +++ b/modules/intermediate_format/whitespace-handling.xqm @@ -32,9 +32,9 @@ declare function whitespace:text let $normalized := normalize-space($text) let $single-whitespace-between-nodes := $text [ self::node() = ' '] - [preceding-sibling::node()[not(self::node() = text())]] - [following-sibling::node()[not(self::node() = text())]] - return +(: [preceding-sibling::node()[not(self::node() = text())]]:) +(: [following-sibling::node()[not(self::node() = text())]]:) + return if ( $normalized != "" or $single-whitespace-between-nodes) then ( if ($escape-char) then ( @@ -43,6 +43,7 @@ declare function whitespace:text ) else () + };