[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[8024] _register_label
From: |
gavinsmith0123 |
Subject: |
[8024] _register_label |
Date: |
Thu, 9 Aug 2018 08:19:45 -0400 (EDT) |
Revision: 8024
http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8024
Author: gavin
Date: 2018-08-09 08:19:45 -0400 (Thu, 09 Aug 2018)
Log Message:
-----------
_register_label
Modified Paths:
--------------
trunk/ChangeLog
trunk/tp/Texinfo/Parser.pm
Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2018-08-09 11:54:31 UTC (rev 8023)
+++ trunk/ChangeLog 2018-08-09 12:19:45 UTC (rev 8024)
@@ -1,3 +1,9 @@
+2018-08-09 Gavin Smith <address@hidden>
+
+ * tp/Texinfo/Parser.pm (_register_label): Remove a useless
+ variable assignment. Remove an unused argument. Do not return
+ a value.
+
2018-08-07 Gavin Smith <address@hidden>
* info/t/Infokey-config: Use C-x for aborting in echo area in
Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm 2018-08-09 11:54:31 UTC (rev 8023)
+++ trunk/tp/Texinfo/Parser.pm 2018-08-09 12:19:45 UTC (rev 8024)
@@ -1,7 +1,7 @@
# $Id$
# Parser.pm: parse texinfo code into a tree.
#
-# Copyright 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017 Free Software
+# Copyright 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018 Free Software
# Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
@@ -2476,21 +2476,16 @@
}
# register a label, that is something that may be the target of a reference
-# and must be unique in the document. Corresponds with @node, @anchor and
+# and must be unique in the document. Corresponds to @node, @anchor and
# @float second arg.
-sub _register_label($$$$)
+sub _register_label($$$)
{
- my ($self, $current, $label, $line_nr) = @_;
+ my ($self, $current, $label) = @_;
- my $normalized = $label->{'normalized'};
-
+ push @{$self->{'targets'}}, $current;
if ($label->{'node_content'}) {
$current->{'extra'}->{'node_content'} = $label->{'node_content'};
}
-
- push @{$self->{'targets'}}, $current;
-
- return 1;
}
# store an index entry.
@@ -2860,7 +2855,7 @@
$float_label = _parse_node_manual($float->{'args'}->[1]);
_check_internal_node($self, $float_label, $line_nr);
}
- _register_label($self, $float, $float_label, $line_nr);
+ _register_label($self, $float, $float_label);
_parse_float_type($float);
$type = $float->{'extra'}->{'type'}->{'normalized'};
}
@@ -3198,7 +3193,7 @@
$current->{'extra'}->{'nodes_manuals'}->[0],
$line_nr);
_register_label($self, $current,
- $current->{'extra'}->{'nodes_manuals'}->[0], $line_nr);
+ $current->{'extra'}->{'nodes_manuals'}->[0]);
$self->{'current_node'} = $current;
} elsif ($command eq 'listoffloats') {
_parse_float_type($current);
@@ -5055,8 +5050,7 @@
my $parsed_anchor = _parse_node_manual($current);
if (_check_node_label($self, $parsed_anchor,
$current->{'parent'}->{'cmdname'}, $line_nr)) {
- _register_label($self, $current->{'parent'},
- $parsed_anchor, $line_nr);
+ _register_label($self, $current->{'parent'}, $parsed_anchor);
if (@{$self->{'regions_stack'}}) {
$current->{'extra'}->{'region'} =
$self->{'regions_stack'}->[-1];
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [8024] _register_label,
gavinsmith0123 <=