texinfo/tp/Texinfo Structuring.pm

[Patrice Dumas]

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"),