From ca675e491baffc9edf73f3470de7516b15fbb40c Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 21 Apr 1999 15:58:58 +0000
Subject: do_cmd_funcline():  Remove some bogus generated stuff from the output
 		    (some text was only intended for the index).

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

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index abd17e8..eb6dfdf 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -589,10 +589,11 @@ sub do_cmd_funcline{
     local($_) = @_;
     my $function_name = next_argument();
     my $arg_list = next_argument();
-    my $idx = make_str_index_entry("<tt class=function>$function_name()</tt>"
-				   . get_indexsubitem());
-    $idx =~ s/\(\)//;
-    return "<dt><b>$idx</b> (<var>$arg_list</var>)\n<dd>" . $_;
+    my $prefix = "<tt class=function>$function_name()</tt>";
+    my $idx = make_str_index_entry($prefix . get_indexsubitem());
+    $prefix =~ s/\(\)//;
+
+    return "<dt><b>$prefix</b> (<var>$arg_list</var>)\n<dd>" . $_;
 }
 
 # Change this flag to index the opcode entries.  I don't think it's very
-- 
cgit v0.12