texinfo/tp/Texinfo Structuring.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/04/30 23:55:49

Modified files:
        tp/Texinfo     : Structuring.pm 

Log message:
        Add a 'section' for elements even when splitting at nodes.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Structuring.pm?cvsroot=texinfo&r1=1.57&r2=1.58

Patches:
Index: Structuring.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Structuring.pm,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- Structuring.pm      23 Apr 2011 10:53:07 -0000      1.57
+++ Structuring.pm      30 Apr 2011 23:55:49 -0000      1.58
@@ -557,6 +557,10 @@
         push @$elements, $current;
       }
       $elements->[-1]->{'extra'}->{'element_command'} = $content;
+      if ($content->{'extra'}->{'associated_section'}) {
+        $elements->[-1]->{'extra'}->{'section'} 
+          = $content->{'extra'}->{'associated_section'};
+      }
     }
     push @{$current->{'contents'}}, $content;
     $content->{'parent'} = $current;
@@ -785,6 +789,7 @@
     if (!$directions->{'Up'} and $element->{'extra'}->{'node'}
         and $element->{'extra'}->{'node'}->{'node_up'} 
         and (!$node_top or ($element->{'extra'}->{'node'} ne $node_top))) {
+      #print STDERR "Using node for up 
"._print_element_command_texi($element)."\n";
       $directions->{'Up'} = 
_node_element($element->{'extra'}->{'node'}->{'node_up'});
     }
     if ($element->{'extra'}->{'directions'}) {