Added minus sign to frequent mistakes regexps

Redaction/Clean.xba

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark67
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark68
 
 End Sub
 
@@ -420,11 +420,11 @@ Private Sub fixFrequentMistakes
 	&apos;Между буквами среднее тире должно обрамляться пробелами
 	AskAndReplace(&quot;(?&lt;=[:alpha:])–(?=[:alpha:])&quot;,NBSP &amp; &quot;–&quot; &amp; NBSP)
 	&apos;Между буквами дефис-минус, цифровое тире и длинное тире заменяется на среднее тире
-    AskAndReplace(&quot;(?&lt;=[:alpha:][:space:])[-‒—](?=[:space:][:alpha:])&quot;,&quot;–&quot;)
+    AskAndReplace(&quot;(?&lt;=[:alpha:][:space:])[-‒—−](?=[:space:][:alpha:])&quot;,&quot;–&quot;)
     &apos;Между двумя цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть цифровым
-    AskAndReplace(&quot;(?&lt;=[:digit:])(?:[:space:])?[-‒–—](?:[:space:])?(?=[:digit:])&quot;,&quot;‒&quot;)
+    AskAndReplace(&quot;(?&lt;=[:digit:])(?:[:space:])?[-‒–—−](?:[:space:])?(?=[:digit:])&quot;,&quot;‒&quot;)
  	&apos;Между двумя римскими цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть средним
-	AskAndReplace(&quot;(?&lt;=[MDCLXVI])(?:[:space:])?[-‒–—](?:[:space:])?(?=[MDCLXVI])&quot;,&quot;–&quot;)
+	AskAndReplace(&quot;(?&lt;=[MDCLXVI])(?:[:space:])?[-‒–—−](?:[:space:])?(?=[MDCLXVI])&quot;,&quot;–&quot;)
 	&apos;Между буквой и угловой открывающейся скобкой должен быть пробел
 	AskAndReplace(&quot;(?&lt;=[:alpha:])&lt;(?=…&gt;)&quot;,space &amp; &quot;&lt;&quot;)
 	&apos;Между угловой закрывающейся скобкой и буквой должен быть пробел
@@ -462,6 +462,7 @@ Private Sub fixFrequentMistakes
 	
 End Sub
 
+
 Private Sub loadArticleStyles
     Dim dispatcher As Object
     Dim filePath As String