From: Fred Drake <fdrake@acm.org>
Date: Thu, 13 May 1999 16:41:19 +0000 (+0000)
Subject: make_index_entry():  Remove.  This is overridden in python.perl and
X-Git-Tag: v1.6a1~1358
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=76febdf3fdab33946a8d4baa61df73f0923a092e;p=python

make_index_entry():  Remove.  This is overridden in python.perl and
		     was never called in this incarnation.  The
		     other version is simpler as well.
---

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index cd81c0a876..1019d48bfd 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -240,18 +240,6 @@ sub gen_index_id {
     sprintf('%s###%s%010d', $str, $extra, ++$global{'max_id'});
 }
 
-sub make_index_entry {
-    my($br_id,$str) = @_;
-    # If TITLE is not yet available (i.e the \index command is in the title of the
-    # current section), use $ref_before.
-    $TITLE = $ref_before unless $TITLE;
-    # Save the reference
-    $str = gen_index_id($str, '');
-    $index{$str} .= make_half_href("$CURRENT_FILE#$br_id");
-    "<a name=\"$br_id\">$anchor_invisible_mark<\/a>";
-}
-
-
 sub insert_index{
     my($mark,$datafile,$columns,$letters,$prefix) = @_;
     my $prog = "$myrootdir/tools/buildindex.py";