[7879] call section_level

[gavinsmith0123]

Revision: 7879
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7879
Author:   gavin
Date:     2017-06-29 11:57:37 -0400 (Thu, 29 Jun 2017)
Log Message:
-----------
call section_level

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Transformations.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2017-06-29 15:07:38 UTC (rev 7878)
+++ trunk/ChangeLog     2017-06-29 15:57:37 UTC (rev 7879)
@@ -1,5 +1,11 @@
 2017-06-29  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Transformations.pm (fill_gaps_in_sectioning): Call 
+       Texinfo::Structuring::section_level to get sectioning level
+       (used in tp/t/test_fill_gaps_in_sectioning.t).
+
+2017-06-29  Gavin Smith  <address@hidden>
+
        * tp/Texinfo/Parser.pm (_section_level),
        * tp/Texinfo/Structuring.pm (section_level): Move function to
        Structuring.pm.

Modified: trunk/tp/Texinfo/Transformations.pm
===================================================================
--- trunk/tp/Texinfo/Transformations.pm 2017-06-29 15:07:38 UTC (rev 7878)
+++ trunk/tp/Texinfo/Transformations.pm 2017-06-29 15:57:37 UTC (rev 7879)
@@ -83,11 +83,14 @@
       next;
     }
     my $current_section = shift @sections_list;
-    my $current_section_level = $current_section->{'level'};
+    my $current_section_level
+       = Texinfo::Structuring::section_level($current_section);
     my $next_section = $sections_list[0];
     
     if (defined($next_section)) {
-      my $next_section_level = $next_section->{'level'};
+      my $next_section_level
+                        = Texinfo::Structuring::section_level($next_section);
+
       if ($next_section_level - $current_section_level > 1) {
         my @correct_level_offset_commands = _correct_level($next_section,
                                                           $contents[-1]);