commit e463f8e4cd134357ecda7881677c668c67bc4a3d
author Fred Drake <fdrake@acm.org> Thu Nov 30 07:17:27 2000 +0000
committer Fred Drake <fdrake@acm.org> Thu Nov 30 07:17:27 2000 +0000
tree d898380a368b482ee6fb52b2bc40ec74699d18b6
parent c01f6e691b0a1c1c8d1f645e703fb9959956b2b3

A few small refinements to the table building code.

Doc/perl/python.perl

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 @@
     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 = '&nbsp;' if ($c2 eq '');
     my($c1align,$c2align) = split('\|', $aligns);
     my $padding = '';
-    if ($c1align =~ /align="right"/) {
+    if ($c1align =~ /align="right"/ || $c1 eq '') {
         $padding = '&nbsp;';
     }
     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 = '&nbsp;' if ($c3 eq '');
     my($c1align,$c2align,$c3align) = split('\|', $aligns);
     my $padding = '';
-    if ($c1align =~ /align="right"/) {
+    if ($c1align =~ /align="right"/ || $c1 eq '') {
         $padding = '&nbsp;';
     }
     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 = '&nbsp;' if ($c4 eq '');
     my($c1align,$c2align,$c3align,$c4align) = split('\|', $aligns);
     my $padding = '';
-    if ($c1align =~ /align="right"/) {
+    if ($c1align =~ /align="right"/ || $c1 eq '') {
         $padding = '&nbsp;';
     }
     return "\n    <tr>$c1align$sfont$c1$efont$padding</td>\n"