[no subject]

[Gavin D. Smith]

branch: master
commit 1b81b23c3d9678c5638cb40f82e38923170d8f00
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Sat Jun 4 01:08:02 2022 +0100

    texi2any --html performance improvement
    
    * tp/Texinfo/Convert/HTML.pm (_convert_text):
    Call _default_format_protect_text directly instead of via
    formatting_function, as this is a heavily used function.
    
    Note: init/html32.pm overrode this function so as not to
    use the &quot entity, so this likely is ineffectual now.
---
 ChangeLog                  | 11 +++++++++++
 tp/Texinfo/Convert/HTML.pm |  7 +++++--
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 8e9e20b053..1e14b62b80 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2022-06-05  Gavin Smith  <gavinsmith0123@gmail.com>
+
+       texi2any --html performance improvement
+
+       * tp/Texinfo/Convert/HTML.pm (_convert_text):
+       Call _default_format_protect_text directly instead of via
+       formatting_function, as this is a heavily used function.
+
+       Note: init/html32.pm overrode this function so as not to
+       use the &quot entity, so this likely is ineffectual now.
+
 2022-06-04  Gavin Smith  <gavinsmith0123@gmail.com>
 
        texi2any --html performance improvement
diff --git a/tp/Texinfo/Convert/HTML.pm b/tp/Texinfo/Convert/HTML.pm
index dee72e1723..98ad78c731 100644
--- a/tp/Texinfo/Convert/HTML.pm
+++ b/tp/Texinfo/Convert/HTML.pm
@@ -5423,11 +5423,14 @@ sub _convert_text($$$)
   my $text = shift;
 
   if ($self->in_verbatim()) {
-    return &{$self->formatting_function('format_protect_text')}($self, $text);
+    return $self->_default_format_protect_text($text);
+    #return &{$self->formatting_function('format_protect_text')}($self, $text);
   }
   return $text if ($self->in_raw());
   $text = uc($text) if ($self->in_upper_case());
-  $text = &{$self->formatting_function('format_protect_text')}($self, $text);
+
+  $text = $self->_default_format_protect_text($text);
+  #$text = &{$self->formatting_function('format_protect_text')}($self, $text);
 
   if ($self->{'conf'}->{'ENABLE_ENCODING'}
       and $self->{'conf'}->{'OUTPUT_ENCODING_NAME'}