From ab357ecf7f5b65374eb967281a84965f05e5179c Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Fri, 2 Mar 2001 18:57:05 +0000
Subject: Label classes and exceptions explicitly in the documentation (for
 their *desc environments).

---
 Doc/perl/python.perl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'Doc/perl/python.perl')

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 289bb05845..890066ffc7 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -882,7 +882,7 @@ sub do_env_excdesc{
     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 @@ sub handle_classlike_descriptor{
     $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{
-- 
cgit v1.2.1