do_cmd_kwindex(): Re-implement now that \kwindex is used again (ref man).
This commit is contained in:
parent
d69e2c4f33
commit
2e7edb80e3
|
@ -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();
|
||||||
|
|
Loading…
Reference in New Issue