From: Fred Drake <fdrake@acm.org>
Date: Mon, 11 May 1998 18:31:17 +0000 (+0000)
Subject: do_cmd_kwindex():  Re-implement now that \kwindex is used again (ref man).
X-Git-Tag: v1.5.2a1~679
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=2e7edb80e369fee740433386b4d7bcbb32c2619d;p=thirdparty%2FPython%2Fcpython.git

do_cmd_kwindex():  Re-implement now that \kwindex is used again (ref man).
---

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 4c9d86d8600b..3a1eaa1c0fb7 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -284,6 +284,16 @@ sub do_cmd_index{
     "$aname$anchor_invisible_mark</a>" . $_;
 }
 
+sub do_cmd_kwindex{
+    local($_) = @_;
+    my($str,$br_id) = next_argument_id();
+    #
+    my($name,$aname,$ahref) = link_info($br_id);
+    add_index_entry("<tt>$str</tt>!keyword", $ahref);
+    add_index_entry("keyword!<tt>$str</tt>", $ahref);
+    "$aname$anchor_invisible_mark</a>" . $_;
+}
+
 sub do_cmd_indexii{
     local($_) = @_;
     my($str1,$br_id) = next_argument_id();