summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/share/po')
-rwxr-xr-xperl-install/share/po/help_xml2pm.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl
index 8d49917cd..6fc07af61 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -137,6 +137,10 @@ sub rewrite2_ {
qq($text);
} elsif (member($tree->{tag}, 'footnote')) {
'(*)'
+ } elsif ($tree->{tag} eq 'keycap') {
+ $text =~ s/^(\s+)/$1]/;
+ $text =~ s/(\s+)$/[$1/;
+ $text;
} elsif ($tree->{tag} eq 'warning') {
$text =~ s/^(\s+)/$1!! /;
$text =~ s/(\s+)$/ !!$1/;
@@ -148,7 +152,7 @@ sub rewrite2_ {
"\n$text\n";
} elsif (member($tree->{tag}, 'guibutton', 'guimenu',
- 'emphasis', 'acronym', 'keycap', 'ulink', 'tip', 'note',
+ 'emphasis', 'acronym', 'ulink', 'tip', 'note',
'primary', 'indexterm', 'application', 'keycombo',
'literal', 'superscript', 'xref',
)) {