Exclude underlined tei:seg from presorting

modules/fontane/teisimpleprint/presort.xqm

@@ -43,9 +43,11 @@ declare function presort:sort($nodes as node()*) as node()* {
             presort:exclude-copied($node)
         
         default return
-            if($node/@next and not($node/@prev)) then
-                (presort:apply-all-nexts($node))
-            else if($node/@prev or $node/@next) then
+            if(($node/@next and not($node/@prev))
+            and not(matches($node/@style, "underline"))) then
+                presort:apply-all-nexts($node)
+            else if(($node/@prev or $node/@next)
+            and not(matches($node/@style, "underline"))) then
                 let $prev-node := presort:find-corresp-node($node, "prev")
                 let $next-node := presort:find-corresp-node($node, "next")
                 return
@@ -111,7 +113,8 @@ declare function presort:exclude-copied($node as node()) as element(tei:rs) {
     let $rs-children := $node/node()
     let $processed-children :=
         for $child in $rs-children return
-            if($child/@next) then
+            if($child/@next
+            and not(matches($child/@style, "underline"))) then
                 presort:apply-all-nexts($child)
             else if($child/@prev) then
                 ()