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 182ece6e836bc1bbeaf98a0cd9193fa8969e78b0..b078a1bee1df225bd0f4c2c7b5c2c580a51362db 100644 (file)
--- 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');