evaluate xschemrc "postinit_commands" before loading schematics given on cmdline
This commit is contained in:
parent
34001d7ff0
commit
f3334cea27
|
|
@ -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);
|
||||
|
|
|
|||
Loading…
Reference in New Issue