[LyX/master] Tools(listFontWithLang.pl): Amend 99508630, polish also the style

[Kornel Benko]

commit 74e37a4791ebea5c0c555806dd986c84851f02ad
Author: Kornel Benko <kornel at lyx.org>
Date:   Sat Aug 29 15:26:58 2020 +0200

    Tools(listFontWithLang.pl): Amend 99508630, polish also the style
---
 development/tools/listFontWithLang.pl |    9 +++++++--
 1 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/development/tools/listFontWithLang.pl b/development/tools/listFontWithLang.pl
index 34c36c9..4683cc9 100644
--- a/development/tools/listFontWithLang.pl
+++ b/development/tools/listFontWithLang.pl
@@ -1211,7 +1211,7 @@ sub buildFontName($$)
   my $prefix = "";
   # Split the family name at the border lowercase <-> uppercase characters
   # except if family starts with "TeX" or "DejaVu", etc
-  if ($family =~ s/^((La|cw|PL)?TeX|DejaVu|MarVoSym|PL)//) {
+  if ($family =~ s/^((La|cw|PL)?TeX|LyX|DejaVu|MarVoSym|PL)//) {
     $prefix = $1;
     if ($family =~ /^[A-Z]/) {
       $prefix .= " ";
@@ -1224,7 +1224,12 @@ sub buildFontName($$)
   $family =~ s/^Ant Polt\b/Antykwa Poltawskiego/;
   $family =~ s/\b(Semi|Extra) (Bold|Condensed|Expanded|Light)\b/$1$2/;
   $family = $prefix . $family;
-  my @style = &splitStyle($style);
+  my @style = ();
+  if ($style =~ s/^((La|cw|PL)?TeX|LyX|DejaVu|MarVoSym|PL)//) {
+    push(@style, $1);
+  }
+
+  push(@style, &splitStyle($style));
   for my $st (@style) {
     $st = ucfirst($st);
     if ($family !~ s/$st/$st/i) {