[groff] 08/11: [gpinyin]: Fix Savannah #60562.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 0e5fcfc2f116d1bb72713ccadc32116d739198f4
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sun May 9 17:34:40 2021 +1000

    [gpinyin]: Fix Savannah #60562.
    
    * contrib/gpinyin/subs.pl (%tones1_Unicode): Fix copy and paste error.
      Emit U+01D5 (Latin capital letter u with dieresis and macron) for Ü
      with tone 1, instead of U+016A (Latin capital letter u with macron).
    
    Fixes <https://savannah.gnu.org/bugs/?60562>.
---
 contrib/gpinyin/ChangeLog | 9 +++++++++
 contrib/gpinyin/subs.pl   | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/contrib/gpinyin/ChangeLog b/contrib/gpinyin/ChangeLog
index 8df09f2..e880575 100644
--- a/contrib/gpinyin/ChangeLog
+++ b/contrib/gpinyin/ChangeLog
@@ -1,5 +1,14 @@
 2021-05-09  G. Branden Robinson <g.branden.robinson@gmail.com>
 
+       * contrib/gpinyin/subs.pl (%tones1_Unicode): Fix copy and paste
+       error.  Emit U+01D5 (Latin capital letter u with dieresis and
+       macron) for Ü with tone 1, instead of U+016A (Latin capital
+       letter u with macron).
+
+       Fixes <https://savannah.gnu.org/bugs/?60562>.
+
+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.
 
diff --git a/contrib/gpinyin/subs.pl b/contrib/gpinyin/subs.pl
index 937fa4e..eda087b 100755
--- a/contrib/gpinyin/subs.pl
+++ b/contrib/gpinyin/subs.pl
@@ -141,7 +141,7 @@ my %tones1_Unicode =
    'I' => q(\\[u012A]),
    'O' => q(\\[u014C]),
    'U' => q(\\[u016A]),
-   'Ü' => q(\\[u016A]),
+   'Ü' => q(\\[u01D5]),
    'a' => q(\\[u0101]),
    'e' => q(\\[u0113]),
    'i' => q(\\[u012B]),