[8114] do not use command extra value

[gavinsmith0123]

Revision: 8114
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8114
Author:   gavin
Date:     2018-08-25 10:01:16 -0400 (Sat, 25 Aug 2018)
Log Message:
-----------
do not use command extra value

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

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2018-08-25 13:36:37 UTC (rev 8113)
+++ trunk/ChangeLog     2018-08-25 14:01:16 UTC (rev 8114)
@@ -1,5 +1,11 @@
 2018-08-25  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Parser.pm (_end_line) <after @end verbatim>:
+       Do not use 'command' extra value to check if we are after
+       @end verbatim.
+
+2018-08-25  Gavin Smith  <address@hidden>
+
        * tp/texi2any.pl: Set top_srcdir as well as top_builddir in case
        these are not defined.  This compensates for a recent change in
        Texinfo::ModulePath.

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2018-08-25 13:36:37 UTC (rev 8113)
+++ trunk/tp/Texinfo/Parser.pm  2018-08-25 14:01:16 UTC (rev 8114)
@@ -3009,9 +3009,9 @@
            and $current->{'contents'}->[-1]
            and $current->{'contents'}->[-1]->{'type'}
            and $current->{'contents'}->[-1]->{'type'} eq 
'empty_line_after_command'
-           and $current->{'contents'}->[-1]->{'extra'}
-           and $current->{'contents'}->[-1]->{'extra'}->{'command'}
-           and 
$current->{'contents'}->[-1]->{'extra'}->{'command'}->{'cmdname'} eq 
'verbatim') {
+           and $current->{'contents'}->[-2]
+           and $current->{'contents'}->[-2]->{'cmdname'}
+           and $current->{'contents'}->[-2]->{'cmdname'} eq 'verbatim') {
     $current = _begin_preformatted($self, $current);
   # misc command line arguments
   # Never go here if skipline/noarg/...