summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>1999-04-21 14:00:29 (GMT)
committerFred Drake <fdrake@acm.org>1999-04-21 14:00:29 (GMT)
commit085b8121eb04b6f563b23784f5761f579ed22b3d (patch)
tree34fa71fa55a1498ed6af8e8e0e7532ee77683157 /Doc/perl
parentc3fcd6fa0e50c78f71a78d8ef6198120da4cd8a3 (diff)
downloadcpython-085b8121eb04b6f563b23784f5761f579ed22b3d.zip
cpython-085b8121eb04b6f563b23784f5761f579ed22b3d.tar.gz
cpython-085b8121eb04b6f563b23784f5761f579ed22b3d.tar.bz2
Fix some remaining index & consistency nits. (Many data member
references were being omitted from the general index.)
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/python.perl16
1 files changed, 8 insertions, 8 deletions
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 @@ sub do_cmd_platform{
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 @@ sub do_env_memberdesc{
$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 @@ sub do_cmd_memberline{
$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 @@ sub do_env_memberdescni{
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 @@ sub do_cmd_memberlineni{
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>");