From 89e4226875032ed7dd1e492dda9cc7cb4ec0850e Mon Sep 17 00:00:00 2001 From: Stefan Siegel Date: Wed, 12 Sep 2001 15:15:58 +0000 Subject: added keycap patch --- perl-install/share/po/help_xml2pm.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') 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', )) { -- cgit v1.2.1