[groff] 07/11: [gpinyin]: Fix Savannah #60561.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 599c6195695a0837b63411253ef5ae99a67923da
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sun May 9 17:07:11 2021 +1000

    [gpinyin]: Fix Savannah #60561.
    
    * contrib/gpinyin/subs.pl (handle_word): Emit \[cq] instead of \[aq]
      when interpolating an apostrophe before a vowel.
    
    Fixes <https://savannah.gnu.org/bugs/?60561>.
---
 contrib/gpinyin/ChangeLog | 7 +++++++
 contrib/gpinyin/subs.pl   | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/contrib/gpinyin/ChangeLog b/contrib/gpinyin/ChangeLog
index 46ba717..8df09f2 100644
--- a/contrib/gpinyin/ChangeLog
+++ b/contrib/gpinyin/ChangeLog
@@ -1,5 +1,12 @@
 2021-05-09  G. Branden Robinson <g.branden.robinson@gmail.com>
 
+       * contrib/gpinyin/subs.pl (handle_word): Emit \[cq] instead of
+       \[aq] when interpolating an apostrophe before a vowel.
+
+       Fixes <https://savannah.gnu.org/bugs/?60561>.
+
+2021-05-09  G. Branden Robinson <g.branden.robinson@gmail.com>
+
        * contrib/gpinyin/subs.pl (%tones_glyphs, %tones4_glyphs): Fix
        hash keys to use the groff dotless i special character into
        which a lowercase "i" has already been transforned instead of
diff --git a/contrib/gpinyin/subs.pl b/contrib/gpinyin/subs.pl
index 7a5734f..937fa4e 100755
--- a/contrib/gpinyin/subs.pl
+++ b/contrib/gpinyin/subs.pl
@@ -388,7 +388,7 @@ sub handle_word {
     next unless ( %outsyll );
     for my $roff ( @roffs ) {
       my $out = $outsyll{$roff};
-      $out = '\\[aq]' . $out if ( $out && $out =~ /^[aeo]/ );
+      $out = '\\[cq]' . $out if ( $out && $out =~ /^[aeo]/ );
       $outword{$roff} .= $out;
 #&err('handle_word ' . $roff . ': ' . $outword{$roff});
     }