do not remove spaces starting a new paragraph

xulihang · Jun 22, 2023 · 14920b1 · 14920b1
1 parent 4ccfb24
commit 14920b1
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/BasicCAT/segmentation.bas b/BasicCAT/segmentation.bas
@@ -211,6 +211,9 @@ Sub addPosition(pos As Int,breakPositions As Map,ruleIndex As Int)
 End Sub
 
 Sub removeSpacesAtBothSides(projectPath As String,targetLang As String,text As String,previousText As String,removeRedundantSpaces As Boolean) As String
+	If previousText.EndsWith(CRLF) Then
+		Return text 'do not remove spaces starting a new paragraph
+	End If
 	readRulesOfProject(targetLang,projectPath)
 	Dim breakPositionsMap As Map=getPositions("yes",previousText&text)
 	Dim breakPositions As List