fix ? all in non english langauge

diff --git a/Changes b/Changes
index 90a0cab5e39b2a5ef82fc331d74c72439f098f9f..970c3222bbd999e5f591da263e51a381f937cc9c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@
 1. Added missing Spanish translation courtesy of Angel EA7WA.
 2. Really incorporate latest cty.dat (11Dec04) as opposed to merely thinking 
 I had (and still add 3X0Y as well).
+3. fix ? all in non english language
 17Jan05=======================================================================
 1. Added 3Y0X to Peter Island 3Y in cty.dat.
 16Jan05=======================================================================

diff --git a/cmd/apropos.pl b/cmd/apropos.pl
index 20775dd9bf9ca29f77b54ab2e470bbb19fc24fe9..98f799b360ecc2e55f4c770eb3debbb490599719 100644 (file)
--- a/cmd/apropos.pl
+++ b/cmd/apropos.pl
@@ -14,9 +14,10 @@ my @out;
 my $lang = $self->lang;
 $lang = 'en' if !$lang;
 
-print "$line\n";
+#print "$line\n";
 my $in;
 $line = 'help' unless $line;
+$line =~ s/\ball\b/.*/;
 $line =~ s/\W//g;   # remove dubious characters
 print "$line\n";