[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
texinfo/tp/Texinfo Structuring.pm
From: |
Patrice Dumas |
Subject: |
texinfo/tp/Texinfo Structuring.pm |
Date: |
Sun, 16 Oct 2011 22:33:57 +0000 |
CVSROOT: /sources/texinfo
Module name: texinfo
Changes by: Patrice Dumas <pertusus> 11/10/16 22:33:57
Modified files:
tp/Texinfo : Structuring.pm
Log message:
No menu related messages if SHOW_MENU is not set.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Structuring.pm?cvsroot=texinfo&r1=1.98&r2=1.99
Patches:
Index: Structuring.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Structuring.pm,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -b -r1.98 -r1.99
--- Structuring.pm 16 Oct 2011 08:50:36 -0000 1.98
+++ Structuring.pm 16 Oct 2011 22:33:57 -0000 1.99
@@ -429,7 +429,7 @@
$top_node = $self->{'nodes'}->[0] if (!$top_node);
foreach my $node (@{$self->{'nodes'}}) {
# warn if node is not top node and doesn't appear in menu
- if ($node ne $top_node and !$node->{'menu_up'}) {
+ if ($self->{'SHOW_MENU'} and $node ne $top_node and !$node->{'menu_up'}) {
$self->line_warn (sprintf($self->__("unreferenced node `%s'"),
Texinfo::Parser::_node_extra_to_texi($node->{'extra'})),
$node->{'line_nr'});
@@ -458,7 +458,7 @@
$node->{'node_'.$direction} = $node->{'menu_'.$direction};
}
}
- if ($node->{'node_next'}) {
+ if ($node->{'node_next'} and $self->{'SHOW_MENU'}) {
if (!defined($node->{'menu_next'})) {
$self->line_warn(sprintf($self->
__("No node following `%s' in menu, but `%s' follows in
sectioning"),
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- texinfo/tp/Texinfo Structuring.pm,
Patrice Dumas <=