Mercurial > cpython-lru_cache-weakref
diff Doc/perl/python.perl @ 15459:a79d3624f845 legacy-trunk
A few small refinements to the table building code.
| author | Fred Drake <fdrake@acm.org> |
|---|---|
| date | Thu, 30 Nov 2000 07:17:27 +0000 |
| parents | 47d9fbe6537c |
| children | d38516ce6f14 |
line wrap: on
line diff
--- a/Doc/perl/python.perl Thu Nov 30 07:13:58 2000 +0000 +++ b/Doc/perl/python.perl Thu Nov 30 07:17:27 2000 +0000 @@ -1018,6 +1018,9 @@ elsif ($font eq 'member') { $font = 'tt class="member"'; } + elsif ($font eq 'class') { + $font = 'tt class="class"'; + } elsif ($font eq 'constant') { $font = 'tt class="constant"'; } @@ -1068,7 +1071,7 @@ $efont = "</$font>"; $efont =~ s/ .*>/>/; } - return ($font, $sfont, $efont); + return ($sfont, $efont); } sub do_env_tableii{ @@ -1105,11 +1108,11 @@ my $c1 = next_argument(); my $c2 = next_argument(); s/[\s\n]+//; - my($font,$sfont,$efont) = get_table_col1_fonts(); + my($sfont,$efont) = get_table_col1_fonts(); $c2 = ' ' if ($c2 eq ''); my($c1align,$c2align) = split('\|', $aligns); my $padding = ''; - if ($c1align =~ /align="right"/) { + if ($c1align =~ /align="right"/ || $c1 eq '') { $padding = ' '; } return "\n <tr>$c1align$sfont$c1$efont$padding</td>\n" @@ -1155,11 +1158,11 @@ my $c2 = next_argument(); my $c3 = next_argument(); s/[\s\n]+//; - my($font,$sfont,$efont) = get_table_col1_fonts(); + my($sfont,$efont) = get_table_col1_fonts(); $c3 = ' ' if ($c3 eq ''); my($c1align,$c2align,$c3align) = split('\|', $aligns); my $padding = ''; - if ($c1align =~ /align="right"/) { + if ($c1align =~ /align="right"/ || $c1 eq '') { $padding = ' '; } return "\n <tr>$c1align$sfont$c1$efont$padding</td>\n" @@ -1210,11 +1213,11 @@ my $c3 = next_argument(); my $c4 = next_argument(); s/[\s\n]+//; - my($font,$sfont,$efont) = get_table_col1_fonts(); + my($sfont,$efont) = get_table_col1_fonts(); $c4 = ' ' if ($c4 eq ''); my($c1align,$c2align,$c3align,$c4align) = split('\|', $aligns); my $padding = ''; - if ($c1align =~ /align="right"/) { + if ($c1align =~ /align="right"/ || $c1 eq '') { $padding = ' '; } return "\n <tr>$c1align$sfont$c1$efont$padding</td>\n"