From: Bruno Haible <bruno@clisp.org>
Date: Sat, 1 Apr 2023 13:36:04 +0000 (+0200)
Subject: xgettext: In language Tcl, fix the \u, \U handling.
X-Git-Tag: v0.22~92
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=ee796849dedee6997a600cf8df70e4c22ed9d9f1;p=thirdparty%2Fgettext.git

xgettext: In language Tcl, fix the \u, \U handling.

* gettext-tools/src/x-tcl.c (do_getc_escaped_low_surrogate): Actually store the
read characters in buf.
---

diff --git a/gettext-tools/src/x-tcl.c b/gettext-tools/src/x-tcl.c
index 182ece6e8..b078a1bee 100644
--- a/gettext-tools/src/x-tcl.c
+++ b/gettext-tools/src/x-tcl.c
@@ -626,6 +626,7 @@ do_getc_escaped_low_surrogate ()
                 phase1_ungetc ('u');
                 return -1;
               }
+            buf[i] = c;
 
             if (c >= '0' && c <= '9')
               n = (n << 4) + (c - '0');