[Python-checkins] CVS: python/dist/src/Doc/perl python.perl,1.91,1.92

[Fred L. Drake]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory slayer.i.sourceforge.net:/tmp/cvs-serv18462/perl

Modified Files:
	python.perl 
Log Message:

A few small refinements to the table building code.


Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.91
retrieving revision 1.92
diff -C2 -r1.91 -r1.92
*** python.perl	2000/10/30 06:24:56	1.91
--- python.perl	2000/11/30 07:17:27	1.92
***************
*** 1019,1022 ****
--- 1019,1025 ----
          $font = 'tt class="member"';
      }
+     elsif ($font eq 'class') {
+         $font = 'tt class="class"';
+     }
      elsif ($font eq 'constant') {
          $font = 'tt class="constant"';
***************
*** 1069,1073 ****
          $efont =~ s/ .*>/>/;
      }
!     return ($font, $sfont, $efont);
  }
  
--- 1072,1076 ----
          $efont =~ s/ .*>/>/;
      }
!     return ($sfont, $efont);
  }
  
***************
*** 1106,1114 ****
      my $c2 = next_argument();
      s/[\s\n]+//;
!     my($font,$sfont,$efont) = get_table_col1_fonts();
      $c2 = ' ' if ($c2 eq '');
      my($c1align,$c2align) = split('\|', $aligns);
      my $padding = '';
!     if ($c1align =~ /align="right"/) {
          $padding = ' ';
      }
--- 1109,1117 ----
      my $c2 = next_argument();
      s/[\s\n]+//;
!     my($sfont,$efont) = get_table_col1_fonts();
      $c2 = ' ' if ($c2 eq '');
      my($c1align,$c2align) = split('\|', $aligns);
      my $padding = '';
!     if ($c1align =~ /align="right"/ || $c1 eq '') {
          $padding = ' ';
      }
***************
*** 1156,1164 ****
      my $c3 = next_argument();
      s/[\s\n]+//;
!     my($font,$sfont,$efont) = get_table_col1_fonts();
      $c3 = ' ' if ($c3 eq '');
      my($c1align,$c2align,$c3align) = split('\|', $aligns);
      my $padding = '';
!     if ($c1align =~ /align="right"/) {
          $padding = ' ';
      }
--- 1159,1167 ----
      my $c3 = next_argument();
      s/[\s\n]+//;
!     my($sfont,$efont) = get_table_col1_fonts();
      $c3 = ' ' if ($c3 eq '');
      my($c1align,$c2align,$c3align) = split('\|', $aligns);
      my $padding = '';
!     if ($c1align =~ /align="right"/ || $c1 eq '') {
          $padding = ' ';
      }
***************
*** 1211,1219 ****
      my $c4 = next_argument();
      s/[\s\n]+//;
!     my($font,$sfont,$efont) = get_table_col1_fonts();
      $c4 = ' ' if ($c4 eq '');
      my($c1align,$c2align,$c3align,$c4align) = split('\|', $aligns);
      my $padding = '';
!     if ($c1align =~ /align="right"/) {
          $padding = ' ';
      }
--- 1214,1222 ----
      my $c4 = next_argument();
      s/[\s\n]+//;
!     my($sfont,$efont) = get_table_col1_fonts();
      $c4 = ' ' if ($c4 eq '');
      my($c1align,$c2align,$c3align,$c4align) = split('\|', $aligns);
      my $padding = '';
!     if ($c1align =~ /align="right"/ || $c1 eq '') {
          $padding = ' ';
      }