[5200] * tp/Convert/Plaintext.pm: use OPEN_QUOTE_SYMBOL and

[Patrice Dumas]

Revision: 5200
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=5200
Author:   pertusus
Date:     2013-02-23 22:58:27 +0000 (Sat, 23 Feb 2013)
Log Message:
-----------
        * tp/Convert/Plaintext.pm: use OPEN_QUOTE_SYMBOL and 
        CLOSE_QUOTE_SYMBOL.

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Convert/Plaintext.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2013-02-23 18:05:11 UTC (rev 5199)
+++ trunk/ChangeLog     2013-02-23 22:58:27 UTC (rev 5200)
@@ -5,6 +5,8 @@
        Report in http://savannah.gnu.org/bugs/?38380.
        * tp/Makefile.am, tp/maintain/*: modularize and rename scripts
        associated to standalone modules handling.
+       * tp/Convert/Plaintext.pm: use OPEN_QUOTE_SYMBOL and 
+       CLOSE_QUOTE_SYMBOL.
 
 2013-02-22  Karl Berry  <address@hidden>
 

Modified: trunk/tp/Texinfo/Convert/Plaintext.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Plaintext.pm       2013-02-23 18:05:11 UTC (rev 
5199)
+++ trunk/tp/Texinfo/Convert/Plaintext.pm       2013-02-23 22:58:27 UTC (rev 
5200)
@@ -371,6 +371,18 @@
       $self->{'style_map'}->{$quoted_command} = ["\x{2018}", "\x{2019}"];
     }
   }
+  if (defined($self->get_conf('OPEN_QUOTE_SYMBOL'))) {
+    foreach my $quoted_command (@quoted_commands) {
+      $self->{'style_map'}->{$quoted_command}->[0] 
+       = $self->get_conf('OPEN_QUOTE_SYMBOL');
+    }
+  }
+  if (defined($self->get_conf('CLOSE_QUOTE_SYMBOL'))) {
+    foreach my $quoted_command (@quoted_commands) {
+      $self->{'style_map'}->{$quoted_command}->[1] 
+       = $self->get_conf('CLOSE_QUOTE_SYMBOL');
+    }
+  }
 
   return $self;
 }