From 73a920ea4153bad7a20426c94aa44374d228bca8 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Fri, 14 Mar 2025 18:28:19 +0100
Subject: [PATCH] xinit.c: eval user_startup_commands after sourcong tcl_files

---
 src/xinit.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/xinit.c b/src/xinit.c
index ff9e9835..d85ef416 100644
--- a/src/xinit.c
+++ b/src/xinit.c
@@ -2893,7 +2893,6 @@ int Tcl_AppInit(Tcl_Interp *inter)
  if(has_x) {
    tclsetintvar("tctx::max_new_windows", MAX_NEW_WINDOWS);
    tcleval("pack_widgets; set_bindings .drw");
-   tcleval("eval_user_startup_commands");
  }
 
  fs=tclgetintvar("fullscreen");
@@ -3063,6 +3062,7 @@ int Tcl_AppInit(Tcl_Interp *inter)
  /* SOURCE XSCHEMRC SUPPLIED TCL FILES */
  /*                                    */
  tcleval("update; source_user_tcl_files");
+ tcleval("eval_user_startup_commands");
 
  /* source tcl file given on command line with --script */
  if(cli_opt_tcl_script[0]) {