evaluate xschemrc "postinit_commands" before loading schematics given on cmdline

This commit is contained in:
stefan schippers 2025-09-23 22:19:19 +02:00
parent 34001d7ff0
commit f3334cea27
1 changed files with 5 additions and 3 deletions

View File

@ -3079,6 +3079,11 @@ int Tcl_AppInit(Tcl_Interp *inter)
/* */
tcleval("source_user_tcl_files");
/* */
/* Execute tcl commands given in tcl variable postinit_commands if existing */
/* */
tcleval("eval_postinit_commands");
if(cli_opt_filename[0]) {
char f[PATH_MAX];
int file_loaded = 1;
@ -3230,9 +3235,6 @@ int Tcl_AppInit(Tcl_Interp *inter)
tcleval(cli_opt_tcl_post_command);
}
/* Execute tcl commands given in tcl variable postinit_commands if existing */
tcleval("eval_postinit_commands");
if(cli_opt_quit) {
char s[40];
my_snprintf(s, S(s), "exit %d", exit_code);