From ab0b65d0c9e5cb654daa63fce439efad11d337da Mon Sep 17 00:00:00 2001 From: Fred Drake Date: Tue, 13 Jan 1998 04:05:11 +0000 Subject: &make_mod_index_entry: Wrap a long comment, store the additional data needed to create a module index in the HTML version. --- Doc/myformat.perl | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/Doc/myformat.perl b/Doc/myformat.perl index 261cd05..15f7adf 100644 --- a/Doc/myformat.perl +++ b/Doc/myformat.perl @@ -155,12 +155,17 @@ sub my_parword_index_helper{ sub make_mod_index_entry { local($br_id,$str,$define) = @_; - # If TITLE is not yet available (i.e the \index command is in the title of the - # current section), use $ref_before. + local($halfref) = &make_half_href("$CURRENT_FILE#$br_id"); + # 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 + if ($define eq "DEF") { + local($nstr,$garbage) = split / /, $str, 2; + $Modules{$nstr} .= $halfref; + } $str = &gen_index_id($str, $define); - $index{$str} .= &make_half_href("$CURRENT_FILE#$br_id"); + $index{$str} .= $halfref; "$anchor_invisible_mark<\/a>"; } -- cgit v0.12