diff options
author | Bruno Haible <bruno@clisp.org> | 2023-04-01 15:36:04 +0200 |
---|---|---|
committer | Bruno Haible <bruno@clisp.org> | 2023-04-01 15:36:04 +0200 |
commit | ee796849dedee6997a600cf8df70e4c22ed9d9f1 (patch) | |
tree | 2e4e1314df1491b17f123a1c34ee4baaf0d0f2a5 | |
parent | 9e5d25903af0670127c9af05b0482a6851bb436c (diff) | |
download | gettext-ee796849dedee6997a600cf8df70e4c22ed9d9f1.tar.gz |
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.
-rw-r--r-- | gettext-tools/src/x-tcl.c | 1 |
1 files changed, 1 insertions, 0 deletions
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'); |