Thanks to visit codestin.com
Credit goes to github.com

Skip to content

Commit 32f7ae0

Browse files
committed
Fix many of the specific targets in links from the index.
In a number of places, I called next_argument() instead of next_argument_id() when the ID was also needed. (7 places)
1 parent 7d65d38 commit 32f7ae0

1 file changed

Lines changed: 7 additions & 7 deletions

File tree

Doc/perl/python.perl

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -192,7 +192,7 @@ sub do_cmd_manpage{
192192

193193
sub do_cmd_rfc{
194194
local($_) = @_;
195-
my($rfcnumber,$br_id) = next_argument();
195+
my($rfcnumber,$br_id) = next_argument_id();
196196
my $href =
197197
"http://info.internet.isi.edu/in-notes/rfc/files/rfc$rfcnumber.txt";
198198
# Save the reference
@@ -340,7 +340,7 @@ sub do_cmd_indexii{
340340

341341
sub do_cmd_indexiii{
342342
local($_) = @_;
343-
my($str1,$br_id) = next_argument();
343+
my($str1,$br_id) = next_argument_id();
344344
my $str2 = next_argument();
345345
my $str3 = next_argument();
346346
#
@@ -353,7 +353,7 @@ sub do_cmd_indexiii{
353353

354354
sub do_cmd_indexiv{
355355
local($_) = @_;
356-
my($str1,$br_id) = next_argument();
356+
my($str1,$br_id) = next_argument_id();
357357
my $str2 = next_argument();
358358
my $str3 = next_argument();
359359
my $str4 = next_argument();
@@ -375,7 +375,7 @@ sub do_cmd_ttindex{
375375

376376
sub my_typed_index_helper{
377377
local($word,$_) = @_;
378-
my($str,$br_id) = next_argument();
378+
my($str,$br_id) = next_argument_id();
379379
swallow_newline();
380380
#
381381
my($name,$aname,$ahref) = link_info($br_id1);
@@ -434,7 +434,7 @@ sub my_module_index_helper{
434434

435435
sub ref_module_index_helper{
436436
local($word, $_) = @_;
437-
my($str,$br_id) = next_argument();
437+
my($str,$br_id) = next_argument_id();
438438
swallow_newline();
439439
$word = "$word " if $word;
440440
return make_mod_index_entry($br_id,
@@ -443,7 +443,7 @@ sub ref_module_index_helper{
443443

444444
sub do_cmd_bifuncindex{
445445
local($_) = @_;
446-
my($str,$br_id) = next_argument();
446+
my($str,$br_id) = next_argument_id();
447447
swallow_newline();
448448
my $fname = "<tt>$str()</tt>";
449449
return make_index_entry($br_id, "$fname (built-in function)") . $_;
@@ -665,7 +665,7 @@ sub do_env_methoddescni{
665665
sub do_env_memberdesc{
666666
local($_) = @_;
667667
my $class = next_optional_argument();
668-
my($member,$br_id) = next_argument();
668+
my($member,$br_id) = next_argument_id();
669669
$class = $THIS_CLASS
670670
unless $class;
671671
my $extra = '';

0 commit comments

Comments
 (0)