[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[7491] associate_internal_references remove arguments
From: |
gavinsmith0123 |
Subject: |
[7491] associate_internal_references remove arguments |
Date: |
Tue, 1 Nov 2016 14:25:13 +0000 (UTC) |
Revision: 7491
http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7491
Author: gavin
Date: 2016-11-01 14:25:13 +0000 (Tue, 01 Nov 2016)
Log Message:
-----------
associate_internal_references remove arguments
Modified Paths:
--------------
trunk/ChangeLog
trunk/tp/Texinfo/Structuring.pm
Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2016-11-01 14:18:11 UTC (rev 7490)
+++ trunk/ChangeLog 2016-11-01 14:25:13 UTC (rev 7491)
@@ -1,5 +1,10 @@
2016-11-01 Gavin Smith <address@hidden>
+ * tp/Texinfo/Structuring.pm (associate_internal_references):
+ Remove unused arguments.
+
+2016-11-01 Gavin Smith <address@hidden>
+
* tp/Texinfo/ModulePath.pm.in: Set $top_builddir from
$top_srcdir as well as the other way around. This is so that
XS modules can be used from tests run from the command-line.
Modified: trunk/tp/Texinfo/Structuring.pm
===================================================================
--- trunk/tp/Texinfo/Structuring.pm 2016-11-01 14:18:11 UTC (rev 7490)
+++ trunk/tp/Texinfo/Structuring.pm 2016-11-01 14:25:13 UTC (rev 7491)
@@ -1144,14 +1144,14 @@
return $root;
}
-# associate internal reference commands like @*ref to labels
-sub associate_internal_references($;$$)
+# For each internal reference command, set the 'label' key in the 'extra'
+# hash of the reference tree element to the associated labeled tree element.
+sub associate_internal_references($)
{
my $self = shift;
- my $labels = shift;
- my $refs = shift;
- $labels = $self->labels_information() if (!defined($labels));
- $refs = $self->internal_references_information() if (!defined($refs));
+
+ my $labels = $self->labels_information();
+ my $refs = $self->internal_references_information();
return if (!defined($refs));
foreach my $ref (@$refs) {
if (!defined($labels->{$ref->{'extra'}{'node_argument'}{'normalized'}})) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [7491] associate_internal_references remove arguments,
gavinsmith0123 <=