diff Doc/perl/python.perl @ 16966:38e17a089492 legacy-trunk

Label classes and exceptions explicitly in the documentation (for their *desc environments).
author Fred Drake <fdrake@acm.org>
date Fri, 02 Mar 2001 18:57:05 +0000
parents 44fd1a7cb279
children 6d30552cb4f9
line wrap: on
line diff
--- a/Doc/perl/python.perl	Fri Mar 02 18:15:11 2001 +0000
+++ b/Doc/perl/python.perl	Fri Mar 02 18:57:05 2001 +0000
@@ -882,7 +882,7 @@
     local($_) = @_;
     my $excname = next_argument();
     my $idx = make_str_index_entry("<tt class='exception'>$excname</tt>");
-    return "<dl><dt><b>$idx</b>\n<dd>" . $_ . '</dl>'
+    return "<dl><dt><b>exception $idx</b>\n<dd>" . $_ . '</dl>'
 }
 
 sub do_env_fulllineitems{ return do_env_itemize(@_); }
@@ -895,7 +895,9 @@
     $idx = make_str_index_entry(
 		"<tt class='$what'>$THIS_CLASS</tt> ($what in $THIS_MODULE)" );
     $idx =~ s/ \(.*\)//;
-    return "<dl><dt><b>$idx</b> (<var>$arg_list</var>)\n<dd>" . $_ . '</dl>';
+    return ("<dl><dt><b>$what $idx</b> (<var>$arg_list</var>)\n<dd>"
+            . $_
+            . '</dl>');
 }
 
 sub do_env_classdesc{