diff options
author | Fred Drake <fdrake@acm.org> | 2000-11-30 07:17:27 (GMT) |
---|---|---|
committer | Fred Drake <fdrake@acm.org> | 2000-11-30 07:17:27 (GMT) |
commit | e463f8e4cd134357ecda7881677c668c67bc4a3d (patch) | |
tree | d898380a368b482ee6fb52b2bc40ec74699d18b6 | |
parent | c01f6e691b0a1c1c8d1f645e703fb9959956b2b3 (diff) | |
download | cpython-e463f8e4cd134357ecda7881677c668c67bc4a3d.zip cpython-e463f8e4cd134357ecda7881677c668c67bc4a3d.tar.gz cpython-e463f8e4cd134357ecda7881677c668c67bc4a3d.tar.bz2 |
A few small refinements to the table building code.
-rw-r--r-- | Doc/perl/python.perl | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index da3cf9f..fb1d066 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -1018,6 +1018,9 @@ sub fix_font{ 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 @@ sub get_table_col1_fonts{ $efont = "</$font>"; $efont =~ s/ .*>/>/; } - return ($font, $sfont, $efont); + return ($sfont, $efont); } sub do_env_tableii{ @@ -1105,11 +1108,11 @@ sub do_cmd_lineii{ 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 @@ sub do_cmd_lineiii{ 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 @@ sub do_cmd_lineiv{ 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" |