branch master updated: * tp/Texinfo/Convert/Plaintext.pm: avoid useless double quotes

[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 f4ef37a1b1 * tp/Texinfo/Convert/Plaintext.pm: avoid useless double 
quotes
f4ef37a1b1 is described below

commit f4ef37a1b1dcb026211f31f6c32feb2490fddf55
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Mon Aug 1 08:55:45 2022 +0200

    * tp/Texinfo/Convert/Plaintext.pm: avoid useless double quotes
---
 tp/Texinfo/Convert/Plaintext.pm | 38 ++++++++++++++++++++------------------
 1 file changed, 20 insertions(+), 18 deletions(-)

diff --git a/tp/Texinfo/Convert/Plaintext.pm b/tp/Texinfo/Convert/Plaintext.pm
index 68813ad199..8b6cad9b3d 100644
--- a/tp/Texinfo/Convert/Plaintext.pm
+++ b/tp/Texinfo/Convert/Plaintext.pm
@@ -2804,12 +2804,12 @@ sub _convert($$)
                  or $command eq 'deftypevr')
                 and !$element->{'extra'}->{'def_parsed_hash'}->{'type'})) {
           if ($arguments) {
-            $tree = $self->gdt("\@tie{}-- {category}: {name} {arguments}", {
+            $tree = $self->gdt('@tie{}-- {category}: {name} {arguments}', {
                     'category' => 
$element->{'extra'}->{'def_parsed_hash'}->{'category'},
                     'name' => $name,
                     'arguments' => $arguments});
           } else {
-            $tree = $self->gdt("\@tie{}-- {category}: {name}", {
+            $tree = $self->gdt('@tie{}-- {category}: {name}', {
                     'category' => 
$element->{'extra'}->{'def_parsed_hash'}->{'category'},
                     'name' => $name});
           }
@@ -2823,10 +2823,10 @@ sub _convert($$)
                     'arguments' => $arguments};
             if ($self->get_conf('deftypefnnewline') eq 'on'
                 and $command eq 'deftypefn') {
-              $tree = $self->gdt("\@tie{}-- {category}:\@*{type}\@*{name} 
{arguments}",
+              $tree = $self->gdt('@tie{}-- {category}:@*{type}@*{name} 
{arguments}',
                                  $strings);
             } else {
-              $tree = $self->gdt("\@tie{}-- {category}: {type} {name} 
{arguments}",
+              $tree = $self->gdt('@tie{}-- {category}: {type} {name} 
{arguments}',
                                  $strings);
             }
           } else {
@@ -2836,10 +2836,10 @@ sub _convert($$)
                     'name' => $name};
             if ($self->get_conf('deftypefnnewline') eq 'on'
                 and $command eq 'deftypefn') {
-              $tree = $self->gdt("\@tie{}-- {category}:\@*{type}\@*{name}",
+              $tree = $self->gdt('@tie{}-- {category}:@*{type}@*{name}',
                                  $strings);
             } else {
-              $tree = $self->gdt("\@tie{}-- {category}: {type} {name}",
+              $tree = $self->gdt('@tie{}-- {category}: {type} {name}',
                                  $strings);
             }
           }
@@ -2847,13 +2847,13 @@ sub _convert($$)
                  or ($command eq 'deftypecv'
                      and !$element->{'extra'}->{'def_parsed_hash'}->{'type'})) 
{
           if ($arguments) {
-            $tree = $self->gdt("\@tie{}-- {category} of {class}: {name} 
{arguments}", {
+            $tree = $self->gdt('@tie{}-- {category} of {class}: {name} 
{arguments}', {
                     'category' => 
$element->{'extra'}->{'def_parsed_hash'}->{'category'},
                     'name' => $name,
                     'class' => 
$element->{'extra'}->{'def_parsed_hash'}->{'class'},
                     'arguments' => $arguments});
           } else {
-            $tree = $self->gdt("\@tie{}-- {category} of {class}: {name}", {
+            $tree = $self->gdt('@tie{}-- {category} of {class}: {name}', {
                     'category' => 
$element->{'extra'}->{'def_parsed_hash'}->{'category'},
                     'class' => 
$element->{'extra'}->{'def_parsed_hash'}->{'class'},
                     'name' => $name});
@@ -2862,13 +2862,13 @@ sub _convert($$)
                  or ($command eq 'deftypeop'
                      and !$element->{'extra'}->{'def_parsed_hash'}->{'type'})) 
{
           if ($arguments) {
-            $tree = $self->gdt("\@tie{}-- {category} on {class}: {name} 
{arguments}", {
+            $tree = $self->gdt('@tie{}-- {category} on {class}: {name} 
{arguments}', {
                     'category' => 
$element->{'extra'}->{'def_parsed_hash'}->{'category'},
                     'name' => $name,
                     'class' => 
$element->{'extra'}->{'def_parsed_hash'}->{'class'},
                     'arguments' => $arguments});
           } else {
-            $tree = $self->gdt("\@tie{}-- {category} on {class}: {name}", {
+            $tree = $self->gdt('@tie{}-- {category} on {class}: {name}', {
                     'category' => 
$element->{'extra'}->{'def_parsed_hash'}->{'category'},
                     'class' => 
$element->{'extra'}->{'def_parsed_hash'}->{'class'},
                     'name' => $name});
@@ -2883,11 +2883,11 @@ sub _convert($$)
                     'arguments' => $arguments};
             if ($self->get_conf('deftypefnnewline') eq 'on') {
               $tree
-                = $self->gdt("\@tie{}-- {category} on 
{class}:\@*{type}\@*{name} {arguments}",
+                = $self->gdt('@tie{}-- {category} on {class}:@*{type}@*{name} 
{arguments}',
                              $strings);
             } else {
               $tree
-                = $self->gdt("\@tie{}-- {category} on {class}: {type} {name} 
{arguments}",
+                = $self->gdt('@tie{}-- {category} on {class}: {type} {name} 
{arguments}',
                              $strings);
             }
           } else {
@@ -2898,11 +2898,11 @@ sub _convert($$)
                     'name' => $name};
             if ($self->get_conf('deftypefnnewline') eq 'on') {
               $tree
-                = $self->gdt("\@tie{}-- {category} on 
{class}:\@*{type}\@*{name}",
+                = $self->gdt('@tie{}-- {category} on {class}:@*{type}@*{name}',
                              $strings);
             } else {
               $tree
-                = $self->gdt("\@tie{}-- {category} on {class}: {type} {name}",
+                = $self->gdt('@tie{}-- {category} on {class}: {type} {name}',
                              $strings);
             }
           }
@@ -2915,7 +2915,7 @@ sub _convert($$)
                     'type' => 
$element->{'extra'}->{'def_parsed_hash'}->{'type'},
                     'arguments' => $arguments};
             $tree
-              = $self->gdt("\@tie{}-- {category} of {class}: {type} {name} 
{arguments}",
+              = $self->gdt('@tie{}-- {category} of {class}: {type} {name} 
{arguments}',
                            $strings);
           } else {
             my $strings = {
@@ -2924,14 +2924,16 @@ sub _convert($$)
                     'class' => 
$element->{'extra'}->{'def_parsed_hash'}->{'class'},
                     'name' => $name};
             $tree
-              = $self->gdt("\@tie{}-- {category} of {class}: {type} {name}",
+              = $self->gdt('@tie{}-- {category} of {class}: {type} {name}',
                              $strings);
           }
         }
 
         my $def_paragraph = $self->new_formatter('paragraph', 
-         { 'indent_length' => 
($self->{'format_context'}->[-1]->{'indent_level'} -1) *$indent_length,
-           'indent_length_next' => 
(1+$self->{'format_context'}->[-1]->{'indent_level'})*$indent_length,
+         { 'indent_length' => 
($self->{'format_context'}->[-1]->{'indent_level'} -1)
+                                      * $indent_length,
+           'indent_length_next' => 
(1+$self->{'format_context'}->[-1]->{'indent_level'})
+                                      * $indent_length,
            'suppress_styles' => 1
          });
         push @{$self->{'formatters'}}, $def_paragraph;