xinit.c: eval user_startup_commands after sourcong tcl_files

This commit is contained in:
stefan schippers 2025-03-14 18:28:19 +01:00
parent 08397f7038
commit 73a920ea41
1 changed files with 1 additions and 1 deletions

View File

@ -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]) {