[56_1] Fix for backport

XmacsLabs · Sep 24, 2023 · f5e7bd1 · f5e7bd1
1 parent b6c0f3d
commit f5e7bd1
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/src/Scheme/Glue/glue_basic.cpp b/src/Scheme/Glue/glue_basic.cpp
@@ -10126,6 +10126,7 @@ initialize_glue_basic () {
   tmscm_install_procedure ("scheme-dialect",  tmg_scheme_dialect, 0, 0, 0);
   tmscm_install_procedure ("get-texmacs-path",  tmg_get_texmacs_path, 0, 0, 0);
   tmscm_install_procedure ("get-texmacs-home-path",  tmg_get_texmacs_home_path, 0, 0, 0);
+  tmscm_install_procedure ("get-tm-cache-path",  tmg_get_tm_cache_path, 0, 0, 0);
   tmscm_install_procedure ("get-user-login",  tmg_get_user_login, 0, 0, 0);
   tmscm_install_procedure ("get-user-name",  tmg_get_user_name, 0, 0, 0);
   tmscm_install_procedure ("mimetype-for-url",  tmg_mimetype_for_url, 1, 0, 0);

diff --git a/src/System/Misc/data_cache.cpp b/src/System/Misc/data_cache.cpp
@@ -142,6 +142,10 @@ do_cache_stat_fail (string name) {
 
 bool
 do_cache_file (string name) {
+  if (is_empty (texmacs_path_string))
+    return false;
+  if (is_empty (texmacs_font_path_string))
+    return false;
   return
     !ends (name, ".ts") &&
     (starts (name, texmacs_path_string) ||
@@ -150,6 +154,8 @@ do_cache_file (string name) {
 
 bool
 do_cache_doc (string name) {
+  if (is_empty (texmacs_doc_path_string))
+    return false;
   return starts (name, texmacs_doc_path_string);
 }