branch master updated: * tp/Texinfo/Convert/HTML.pm (element_is_tree_unit_top): simplify condition and use only 'unit_command'.

[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 49790d8a9d * tp/Texinfo/Convert/HTML.pm (element_is_tree_unit_top): 
simplify condition and use only 'unit_command'.
49790d8a9d is described below

commit 49790d8a9d5e2a4bcd2662e15d71469edec3b5a3
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sat Jan 1 11:47:15 2022 +0100

    * tp/Texinfo/Convert/HTML.pm (element_is_tree_unit_top): simplify
    condition and use only 'unit_command'.
---
 ChangeLog                  | 7 ++++++-
 tp/Texinfo/Convert/HTML.pm | 7 +++----
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9d6ae1f4fb..843a89cf9e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-01-01  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/Convert/HTML.pm (element_is_tree_unit_top): simplify
+       condition and use only 'unit_command'.
+
 2022-01-01  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/HTML.pm (command_text, element_is_tree_unit_top)
@@ -11,7 +16,7 @@
        * tp/Texinfo/Convert/Converter.pm (sort_element_counts),
        tp/Texinfo/Convert/IXIN.pm (output_ixin), tp/Texinfo/Convert/Info.pm
        (output), tp/Texinfo/Convert/Plaintext.pm (process_footnotes):
-       : use tree unit 'unit_command'.
+       use tree unit 'unit_command'.
 
 2022-01-01  Patrice Dumas  <pertusus@free.fr>
 
diff --git a/tp/Texinfo/Convert/HTML.pm b/tp/Texinfo/Convert/HTML.pm
index e3bff09ba5..3a5f2df821 100644
--- a/tp/Texinfo/Convert/HTML.pm
+++ b/tp/Texinfo/Convert/HTML.pm
@@ -919,10 +919,9 @@ sub element_is_tree_unit_top($$)
   return ($self->{'global_target_elements'}->{'Top'}
     and $self->{'global_target_elements'}->{'Top'} eq $element
     and $element->{'extra'}
-    and (($element->{'extra'}->{'unit_section'}
-         and $element->{'extra'}->{'unit_section'}->{'cmdname'} eq 'top')
-         or ($element->{'extra'}->{'unit_command'}
-             and $element->{'extra'}->{'unit_command'}->{'cmdname'} eq 
'node')));
+    and $element->{'extra'}->{'unit_command'}
+    and ($element->{'extra'}->{'unit_command'}->{'cmdname'} eq 'node'
+         or $element->{'extra'}->{'unit_command'}->{'cmdname'} eq 'top'));
 }
 
 sub default_formatting_function($$)