do_cmd_kwindex(): Re-implement now that \kwindex is used again (ref man).

This commit is contained in:
Fred Drake 1998-05-11 18:31:17 +00:00
parent d69e2c4f33
commit 2e7edb80e3
1 changed files with 10 additions and 0 deletions

View File

@ -284,6 +284,16 @@ sub do_cmd_index{
"$aname$anchor_invisible_mark</a>" . $_; "$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{ sub do_cmd_indexii{
local($_) = @_; local($_) = @_;
my($str1,$br_id) = next_argument_id(); my($str1,$br_id) = next_argument_id();