summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2003-09-04 21:25:03 (GMT)
committerFred Drake <fdrake@acm.org>2003-09-04 21:25:03 (GMT)
commitecbfceb31c38b7736fa19a7fe8b3f1158254b41d (patch)
tree16823ab1d10e6ae2ea8434bc25ee4f6d69c25af4 /Doc/perl
parentb79f343e61bc191d2a35db4e778410e3bbff23c0 (diff)
downloadcpython-ecbfceb31c38b7736fa19a7fe8b3f1158254b41d.zip
cpython-ecbfceb31c38b7736fa19a7fe8b3f1158254b41d.tar.gz
cpython-ecbfceb31c38b7736fa19a7fe8b3f1158254b41d.tar.bz2
make sure cells are really generated for all table cells, even those
that are left empty fixes first of the problems reported in SF bug #727692
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/python.perl10
1 files changed, 10 insertions, 0 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index b7545b3..da38cd2 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -1406,6 +1406,7 @@ sub do_cmd_lineii{
my $c2 = next_argument();
s/[\s\n]+//;
my($sfont, $efont) = get_table_col1_fonts();
+ $c1 = '&nbsp;' if ($c1 eq '');
$c2 = '&nbsp;' if ($c2 eq '');
my($c1align, $c2align) = split('\|', $aligns);
my $padding = '';
@@ -1457,6 +1458,8 @@ sub do_cmd_lineiii{
my $c3 = next_argument();
s/[\s\n]+//;
my($sfont, $efont) = get_table_col1_fonts();
+ $c1 = '&nbsp;' if ($c1 eq '');
+ $c2 = '&nbsp;' if ($c2 eq '');
$c3 = '&nbsp;' if ($c3 eq '');
my($c1align, $c2align, $c3align) = split('\|', $aligns);
my $padding = '';
@@ -1513,6 +1516,9 @@ sub do_cmd_lineiv{
my $c4 = next_argument();
s/[\s\n]+//;
my($sfont, $efont) = get_table_col1_fonts();
+ $c1 = '&nbsp;' if ($c1 eq '');
+ $c2 = '&nbsp;' if ($c2 eq '');
+ $c3 = '&nbsp;' if ($c3 eq '');
$c4 = '&nbsp;' if ($c4 eq '');
my($c1align, $c2align, $c3align, $c4align) = split('\|', $aligns);
my $padding = '';
@@ -1574,6 +1580,10 @@ sub do_cmd_linev{
my $c5 = next_argument();
s/[\s\n]+//;
my($sfont, $efont) = get_table_col1_fonts();
+ $c1 = '&nbsp;' if ($c1 eq '');
+ $c2 = '&nbsp;' if ($c2 eq '');
+ $c3 = '&nbsp;' if ($c3 eq '');
+ $c4 = '&nbsp;' if ($c4 eq '');
$c5 = '&nbsp;' if ($c5 eq '');
my($c1align, $c2align, $c3align, $c4align, $c5align) = split('\|',$aligns);
my $padding = '';