[69_5] Unicode: fix file inclusion

Co-authored-by: 沈浪熊猫儿 <[email protected]>
XmacsLabs · Nov 21, 2023 · 06b4c28 · 06b4c28
1 parent e52da4d
commit 06b4c28
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/TeXmacs/progs/generic/generic-edit.scm b/TeXmacs/progs/generic/generic-edit.scm
@@ -842,7 +842,7 @@
       (insert-go-to `(inactive (specific ,s "")) '(0 1 0))))
 
 (tm-define (make-include u)
-  (insert `(include ,(url->delta-unix u))))
+  (insert `(include ,(utf8->cork (url->delta-unix u)))))
 
 (tm-define (make-inline-image l)
   (apply make-image (cons* (url->delta-unix (car l)) #f (cdr l))))

diff --git a/src/Typeset/Env/env_exec.cpp b/src/Typeset/Env/env_exec.cpp
@@ -109,7 +109,7 @@ edit_env_rep::rewrite (tree t) {
   case VAR_INCLUDE:
     {
       if (N(t) == 0) return tree (ERROR, "invalid include");
-      url file_name= url_unix (exec_string (t[0]));
+      url file_name= url_unix (cork_to_utf8 (exec_string (t[0])));
       url file_rel = relative (base_file_name, file_name);
       if (file_rel == base_file_name)
         return tree (ERROR, "invalid self include");