Fix some remaining index & consistency nits. (Many data member
references were being omitted from the general index.)
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index f7bd48e..abd17e8 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -261,7 +261,7 @@
my $platform = next_argument();
$ModulePlatforms{$THIS_MODULE} = $platform;
$platform = "Macintosh"
- if $platform eq "Mac";
+ if $platform eq 'Mac';
return "\n<p class=availability>Availability: <span"
. "\n class=platform>$platform</span>.</p>\n" . $_;
}
@@ -733,9 +733,9 @@
$class = $THIS_CLASS
unless $class;
my $extra = '';
- $extra = " ($class_name attribute)"
- if (!($class eq ''));
- my $idx = make_str_index_entry("<tt>$member</tt>$extra");
+ $extra = " ($class attribute)"
+ if ($class ne '');
+ my $idx = make_str_index_entry("<tt class=member>$member</tt>$extra");
$idx =~ s/ \(.*\)//;
$idx =~ s/\(\)//;
return "<dl><dt><b>$idx</b>\n<dd>" . $_ . '</dl>';
@@ -749,8 +749,8 @@
$class = $THIS_CLASS
unless $class;
my $extra = '';
- $extra = " ($class_name attribute)"
- if (!($class eq ''));
+ $extra = " ($class attribute)"
+ if ($class ne '');
my $idx = make_str_index_entry("<tt class=member>$member</tt>$extra");
$idx =~ s/ \(.*\)//;
$idx =~ s/\(\)//;
@@ -761,7 +761,7 @@
local($_) = @_;
next_optional_argument();
my $member = next_argument();
- return "<dl><dt><b>$member</b>\n<dd>" . $_ . '</dl>';
+ return "<dl><dt><b><tt class=member>$member</tt></b>\n<dd>" . $_ . '</dl>';
}
@@ -769,7 +769,7 @@
local($_) = @_;
next_optional_argument();
my $member = next_argument();
- return "<dt><b>$member</b><dd>" . $_;
+ return "<dt><b><tt class=member>$member</tt></b><dd>" . $_;
}
@col_aligns = ("<td>", "<td>", "<td>", "<td>");