From 72df9bcba26824746ac2a00fbd168e4747e081c9 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 16 Dec 1997 21:13:20 +0000
Subject: do_cmd_refbimodindex(), do_cmd_refstmodindex():  New functions,
 handle the 	reference form of \bimodindex{} and \stmodindex{}.

my_parword_index_helper():  Fixed to include proper anchor in result text.
---
 Doc/myformat.perl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/Doc/myformat.perl b/Doc/myformat.perl
index b1ba493..f60bf1a 100644
--- a/Doc/myformat.perl
+++ b/Doc/myformat.perl
@@ -108,7 +108,7 @@ sub do_cmd_indexiii{
 	join('', &make_index_entry($br_id1, "$str1 $str2 $str3"),
 		 &make_index_entry($br_id2, "$str2 $str3, $str1"),
 		 &make_index_entry($br_id3, "$str3, $str1 $str2"),
-		  $_);
+		 $_);
 }
 
 sub do_cmd_indexiv{
@@ -125,7 +125,7 @@ sub do_cmd_indexiv{
 		 &make_index_entry($br_id2, "$str2 $str3 $str4, $str1"),
 		 &make_index_entry($br_id3, "$str3 $str4, $str1 $str2"),
 		 &make_index_entry($br_id4, "$str4, $str1 $str2 $str3"),
-		  $_);
+		 $_);
 }
 
 sub do_cmd_ttindex{
@@ -150,8 +150,7 @@ sub my_parword_index_helper{
 	local($word, $_) = @_;
 	s/$next_pair_pr_rx//o;
 	local($br_id, $str) = ($1, $2);
-	&make_index_entry($br_id, "$str ($word)");
-	$_;
+	&make_index_entry($br_id, "$str ($word)") . $_;
 }
 
 sub do_cmd_bifuncindex{ &my_parword_index_helper('built-in function', @_); }
@@ -159,6 +158,9 @@ sub do_cmd_bimodindex{ &my_parword_index_helper('built-in module', @_); }
 sub do_cmd_stmodindex{ &my_parword_index_helper('standard module', @_); }
 sub do_cmd_bifuncindex{ &my_parword_index_helper('standard module', @_); }
 
+sub do_cmd_refbimodindex{ &my_parword_index_helper('built-in module', @_); }
+sub do_cmd_refstmodindex{ &my_parword_index_helper('standard module', @_); }
+
 sub do_cmd_nodename{ &do_cmd_label(@_); }
 
 $any_next_pair_rx3 = "$O(\\d+)$C([\\s\\S]*)$O\\3$C";
-- 
cgit v0.12

