branch master updated: * tp/Texinfo/ParserNonXS.pm (_parse_texi): check if top_context_command is not undef too, which would correspond to the root context, for heading specification context command check.

[Patrice Dumas]

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new 9e236aad0d * tp/Texinfo/ParserNonXS.pm (_parse_texi): check if 
top_context_command is not undef too, which would correspond to the root 
context, for heading specification context command check.
9e236aad0d is described below

commit 9e236aad0d7e72c8164ae8c0e33c233313bd6b69
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Fri Dec 31 14:58:42 2021 +0100

    * tp/Texinfo/ParserNonXS.pm (_parse_texi): check if top_context_command
    is not undef too, which would correspond to the root context, for
    heading specification context command check.
---
 ChangeLog                 | 6 ++++++
 tp/Texinfo/ParserNonXS.pm | 6 ++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 893cf79399..4961494aed 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2021-12-30  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/ParserNonXS.pm (_parse_texi): check if top_context_command
+       is not undef too, which would correspond to the root context, for
+       heading specification context command check.
+
 2021-12-30  Patrice Dumas  <pertusus@free.fr>
 
        * INSTALL: describe TEXINFO_XS_PARSER use.
diff --git a/tp/Texinfo/ParserNonXS.pm b/tp/Texinfo/ParserNonXS.pm
index e4fa772e7f..fb639d168c 100644
--- a/tp/Texinfo/ParserNonXS.pm
+++ b/tp/Texinfo/ParserNonXS.pm
@@ -3951,7 +3951,7 @@ sub _parse_texi($$$)
           $arguments = [$line];
           $line = "\n" if ($has_end_of_line);
         }
-        my $expanded = _expand_macro_body ($self,
+        my $expanded = _expand_macro_body($self,
                                    $self->{'macros'}->{$command},
                                    $arguments, $line_nr);
         print STDERR "MACROBODY: $expanded".'||||||'."\n" 
@@ -4318,7 +4318,9 @@ sub _parse_texi($$$)
             if ($in_heading_commands{$command}) {
               # TODO use a more generic system for check of @-command nesting
               # in command on context stack
-              if (not 
$headings_specification_commands{$self->_top_context_command()}) {
+              my $top_context_command = $self->_top_context_command();
+              if (not defined($top_context_command)
+                  or not 
$headings_specification_commands{$top_context_command}) {
                 $self->_line_error(
                   sprintf(__("\@%s should only appear in heading or footing"),
                         $command), $line_nr);