summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>1998-01-13 04:05:11 (GMT)
committerFred Drake <fdrake@acm.org>1998-01-13 04:05:11 (GMT)
commitab0b65d0c9e5cb654daa63fce439efad11d337da (patch)
tree6f1a61407deabdbc2f9c5107f24e0e8b18c15e57
parent9b6f1d24f9e2f9876df4da6586232eb24f8c4c40 (diff)
downloadcpython-ab0b65d0c9e5cb654daa63fce439efad11d337da.zip
cpython-ab0b65d0c9e5cb654daa63fce439efad11d337da.tar.gz
cpython-ab0b65d0c9e5cb654daa63fce439efad11d337da.tar.bz2
&make_mod_index_entry: Wrap a long comment, store the additional data needed
to create a module index in the HTML version.
-rw-r--r--Doc/myformat.perl11
1 files 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;
"<a name=\"$br_id\">$anchor_invisible_mark<\/a>";
}