write18: use append_to_name_char

texjporg · Jan 26, 2022 · 30dfb8e · 30dfb8e
1 parent bd5b896
commit 30dfb8e
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/source/texk/ptexenc/ptexenc.c b/source/texk/ptexenc/ptexenc.c
@@ -224,7 +224,11 @@ boolean is_internalUPTEX(void)
 
 boolean is_terminalUTF8(void)
 {
-    return (terminal_enc == ENC_UTF8);
+#ifdef WIN32
+    return false;
+#else
+    get_terminal_enc(); return (terminal_enc == ENC_UTF8);
+#endif
 }
 
 

diff --git a/source/texk/web2c/ptexdir/ptex-base.ch b/source/texk/web2c/ptexdir/ptex-base.ch
@@ -6732,7 +6732,7 @@ end
       name_of_file := xmalloc(cur_length*4+1);
       k := 0;
       for d:=0 to cur_length-1 do
-        append_to_name(str_pool[str_start[str_ptr]+d]);
+        append_to_name_char(str_pool[str_start[str_ptr]+d]);
       name_of_file[k+1] := 0;
       runsystem_ret := runsystem(conststringcast(name_of_file+1));
 @z