texinfo-commits
[Top][All Lists]
Advanced

[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'}})) {




reply via email to

[Prev in Thread] Current Thread [Next in Thread]