From d0367425cd30a5a74317cfb5fb041da616ec27ec Mon Sep 17 00:00:00 2001
From: Nigel <windymilla@users.noreply.github.com>
Date: Sat, 14 Oct 2023 14:22:26 +0100
Subject: [PATCH] Add good_words to project dict more efficiently (#1261)

Previously it saved the dictionary after reading each word from
the `good_words.txt`. Now it reads them all, then does a single
save at the end.

Fixes #1255
---
 src/lib/Guiguts/SpellCheck.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/lib/Guiguts/SpellCheck.pm b/src/lib/Guiguts/SpellCheck.pm
index 2eddc2f8..bdda070b 100644
--- a/src/lib/Guiguts/SpellCheck.pm
+++ b/src/lib/Guiguts/SpellCheck.pm
@@ -226,18 +226,16 @@ sub spelladdword {
 }
 
 #
-# Add a word to the project dictionary
-# Optional second argument if it's a bad word
+# Add a single word to the project dictionary and save it - slow if used for bulk additions
 sub spellmyaddword {
     my $textwindow = $::textwindow;
     my $term       = shift;
-    my $bad        = shift;
     unless ($term) {
         ::soundbell();
         return;
     }
     return if $term =~ /^\s*$/;
-    ( $bad ? $::projectbadwords{$term} : $::projectdict{$term} ) = '';
+    $::projectdict{$term} = '';
     spellsaveprojdict();
 }
 
@@ -502,7 +500,7 @@ sub spelladdgoodwords {
         while ( my $line = <$fh> ) {
             $line =~ s/\s+$//;
             next if $line eq '';
-            spellmyaddword($line);
+            $::projectdict{$line} = '';
         }
         close($fh);
 
@@ -511,10 +509,11 @@ sub spelladdgoodwords {
             while ( my $line = <$fh> ) {
                 $line =~ s/\s+$//;
                 next if $line eq '';
-                spellmyaddword( $line, "bad" );
+                $::projectbadwords{$line} = '';
             }
             close($fh);
         }
+        spellsaveprojdict();
         ::unbusy();
     } else {
         ::warnerror("Could not open good_words.txt");