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 4c9d86d..3a1eaa1 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -284,6 +284,16 @@
"$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();