[no subject]

[Patrice Dumas]

branch: master
commit bffbb719ba636918041ce711a490aaf7c0376004
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Nov 1 14:31:50 2022 +0100

    tp/Texinfo/Convert/HTML.pm minor changes (variable name, comment)
---
 tp/Texinfo/Convert/HTML.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/tp/Texinfo/Convert/HTML.pm b/tp/Texinfo/Convert/HTML.pm
index 3373ae0071..a7ed0998f0 100644
--- a/tp/Texinfo/Convert/HTML.pm
+++ b/tp/Texinfo/Convert/HTML.pm
@@ -1449,11 +1449,11 @@ sub special_element_info($$;$) {
 
     if (not exists($self->{'special_element_info'}->{$type}
                                     ->{$special_element_variety})) {
-      my $special_element_heading = $translated_special_element_info
+      my $special_element_info_string = $translated_special_element_info
                                             ->{$special_element_variety};
       my $translated_tree;
-      if (defined($special_element_heading)) {
-        $translated_tree = $self->gdt($special_element_heading);
+      if (defined($special_element_info_string)) {
+        $translated_tree = $self->gdt($special_element_info_string);
       }
       $self->{'special_element_info'}->{$type}->{$special_element_variety}
         = $translated_tree;
@@ -2120,6 +2120,7 @@ sub _translate_names($)
     $self->{'directions_strings'}->{$string_type} = {};
   }
 
+  # could also use keys of $self->{'translated_special_element_info'}
   foreach my $type (keys(%default_translated_special_element_info)) {
     $self->{'special_element_info'}->{$type.'_tree'} = {};
   }