diff options
| author | Stefan Siegel <siegel@linux-mandrake.com> | 2001-09-12 15:15:58 +0000 |
|---|---|---|
| committer | Stefan Siegel <siegel@linux-mandrake.com> | 2001-09-12 15:15:58 +0000 |
| commit | 89e4226875032ed7dd1e492dda9cc7cb4ec0850e (patch) | |
| tree | 9c85126a71201925a70e459b8c86cd37a85fbe55 /perl-install | |
| parent | 2359181c57e4e9dd4213a7eb1ea55cac65687683 (diff) | |
| download | drakx-89e4226875032ed7dd1e492dda9cc7cb4ec0850e.tar drakx-89e4226875032ed7dd1e492dda9cc7cb4ec0850e.tar.gz drakx-89e4226875032ed7dd1e492dda9cc7cb4ec0850e.tar.bz2 drakx-89e4226875032ed7dd1e492dda9cc7cb4ec0850e.tar.xz drakx-89e4226875032ed7dd1e492dda9cc7cb4ec0850e.zip | |
added keycap patch
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/share/po/help_xml2pm.pl | 6 |
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', )) { |