branch master updated: * tp/Texinfo/ParserNonXS.pm (_handle_line_command) (_handle_block_command): fix global commands state key.

[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 ebc80946af * tp/Texinfo/ParserNonXS.pm (_handle_line_command) 
(_handle_block_command): fix global commands state key.
ebc80946af is described below

commit ebc80946afd8af7eea197c2372e2b7eed7d65553
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Mar 10 12:29:29 2024 +0100

    * tp/Texinfo/ParserNonXS.pm (_handle_line_command)
    (_handle_block_command): fix global commands state key.
---
 ChangeLog                 | 5 +++++
 tp/Texinfo/ParserNonXS.pm | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a6b1b9fc65..8ec07107c7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-03-10  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/ParserNonXS.pm (_handle_line_command)
+       (_handle_block_command): fix global commands state key.
+
 2024-03-10  Patrice Dumas  <pertusus@free.fr>
 
        XS interface for 
Texinfo::Convert::Converter::set_global_document_commands
diff --git a/tp/Texinfo/ParserNonXS.pm b/tp/Texinfo/ParserNonXS.pm
index 1a2129591e..7e524ec06f 100644
--- a/tp/Texinfo/ParserNonXS.pm
+++ b/tp/Texinfo/ParserNonXS.pm
@@ -5797,7 +5797,7 @@ sub _handle_line_command($$$$$$)
   _register_global_command($self, $command_e, $source_info)
     if $command_e;
   if ($command eq 'dircategory') {
-    push @{$self->{'global_commands'}->{'dircategory_direntry'}}, $command_e;
+    push @{$self->{'commands_info'}->{'dircategory_direntry'}}, $command_e;
   }
   return ($current, $line, $retval, $command_e);
 }
@@ -5885,7 +5885,7 @@ sub _handle_block_command($$$$$)
     }
     if ($block_commands{$command} eq 'menu') {
       $self->_push_context('ct_preformatted', $command);
-      push @{$self->{'global_commands'}->{'dircategory_direntry'}}, $block
+      push @{$self->{'commands_info'}->{'dircategory_direntry'}}, $block
         if ($command eq 'direntry');
       if ($self->{'current_node'}) {
         if ($command eq 'direntry') {