From 4244f63e296df870a8b304e6e0426fe886d951f2 Mon Sep 17 00:00:00 2001
From: Tony Mountifield <tony@mountifield.org>
Date: Thu, 7 Oct 2021 15:04:27 +0100
Subject: [PATCH] Improve accelerator key detection

Merge base class with its derived class for dialogs.
Don't skip unfinished translations, as they still get used.
---
 tools/checkkeys.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tools/checkkeys.pl b/tools/checkkeys.pl
index 7810adecb2..7fcdf9ca42 100755
--- a/tools/checkkeys.pl
+++ b/tools/checkkeys.pl
@@ -18,13 +18,14 @@
 	foreach $context (@{$xs->{context}}) {
 		# printf "\n========================================\nContext: %s\n", $context->{name};
 		my $contextname = $context->{name};
+		$contextname =~ s/Base$//;	# merge base class with its child
 		$contextname = 'CClientDlg+CHelpMenu' if ($contextname eq 'CClientDlg' || $contextname eq 'CHelpMenu');
 
 		foreach $message (@{$context->{message}}) {
 			# printf "  Msg: %s\n", $message->{source};
 			next if $message->{translation}{type} eq 'obsolete';
 			next if $message->{translation}{type} eq 'vanished';
-			next if $message->{translation}{type} eq 'unfinished';
+			#next if $message->{translation}{type} eq 'unfinished';	# don't skip unfinished strings, as they may still get used
 
 			next unless $message->{source} =~ /\&(.)/;