From aef8a5698f3bee2a177e89bd22ac2cf9779f93e6 Mon Sep 17 00:00:00 2001
From: Nigel <windymilla@users.noreply.github.com>
Date: Sat, 14 Oct 2023 14:22:48 +0100
Subject: [PATCH] Replace not sign with hyphen in CP Char Subs (#1260)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Hyphens with specks are sometimes mis-OCRed as Not signs `¬`.
Add to the list of replacements made in File->Content Providing->
CP Character Substitutions.

Fixes #1256
---
 src/lib/Guiguts/FileMenu.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/lib/Guiguts/FileMenu.pm b/src/lib/Guiguts/FileMenu.pm
index a0dd55d3..b448075e 100644
--- a/src/lib/Guiguts/FileMenu.pm
+++ b/src/lib/Guiguts/FileMenu.pm
@@ -1400,6 +1400,7 @@ sub cpcharactersubs {
     $textwindow->addGlobStart;
     $textwindow->FindAndReplaceAll( '-exact', '-nocase', "\x{0009}", " " );     # tab --> space
     $textwindow->FindAndReplaceAll( '-exact', '-nocase', "\x{2014}", "--" );    # emdash --> double hyphen
+    $textwindow->FindAndReplaceAll( '-exact', '-nocase', "\x{00ac}", "-" );     # not sign --> hyphen
     $textwindow->FindAndReplaceAll( '-exact', '-nocase', "\x{2018}", "'" );     # left single quote --> straight
     $textwindow->FindAndReplaceAll( '-exact', '-nocase', "\x{2019}", "'" );     # right single quote --> straight
     $textwindow->FindAndReplaceAll( '-exact', '-nocase', "\x{201c}", "\"" );    # left double quote --> straight