diff options
Diffstat (limited to 'Doc/myformat.perl')
| -rw-r--r-- | Doc/myformat.perl | 10 |
1 files 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"; |