From 4b5a6ac9b90517515c27e18ad830c252c27cd4ed Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Mon, 27 Apr 2020 11:03:49 +0200
Subject: [PATCH] Frequent mistakes search for any spaces in regexp

---
 Redaction/Clean.xba | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba
index 2ab71c9..f4b8b46 100644
--- a/Redaction/Clean.xba
+++ b/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 mark45
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark46
 
 End Sub
 
@@ -368,9 +368,9 @@ Private Sub fixFrequentMistakes
 	&apos;Между числом и &quot;г.&quot; должен быть неразрывный пробел, а не обычный
 	AskAndReplace(&quot;(?&lt;=[0-9])[:space:]*г(?=\.)&quot;,NBSP &amp; &quot;г&quot;)
 	&apos;Между инициалами и Фамилией должен быть неразрывный пробел, а не обычный
-	AskAndReplace(&quot;(?&lt;=[:upper:]\.[:space:][:upper:]\.)\ (?=[:upper:][:lower:]+)&quot;,NBSP)
+	AskAndReplace(&quot;(?&lt;=[:upper:]\.[:space:][:upper:]\.)[:space:](?=[:upper:][:lower:]+)&quot;,NBSP)
 	&apos;Между Фамилией и инициалами должен быть неразрывный пробел, а не обычный
-	AskAndReplace(&quot;(?&lt;=[:upper:][:lower:]{1,30})\ (?=[:upper:]\.[:space:][:upper:]\.)&quot;,NBSP)
+	AskAndReplace(&quot;(?&lt;=[:upper:][:lower:]{1,30})[:space:](?=[:upper:]\.[:space:][:upper:]\.)&quot;,NBSP)
 
 	&apos;Не должно быть пробелов после скобок [({ и кавычек «„
 	AskAndReplace(&quot;(?&lt;=[\(\[\{«„])[:space:]&quot;,&quot;&quot;)