From 8043c2af75982d9b002d5208cfe7c4e17e67e247 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Fri, 26 Sep 2025 23:51:55 +0200
Subject: [PATCH] source $tcl_files *after* setting default bindings
 (set_bindings), otherwise additional bindings defined therein will stop
 working

---
 src/xinit.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/xinit.c b/src/xinit.c
index afe56d58..b61cace8 100644
--- a/src/xinit.c
+++ b/src/xinit.c
@@ -3096,6 +3096,10 @@ int Tcl_AppInit(Tcl_Interp *inter)
    tclsetvar("compare_sch", "1");
  } 
 
+ /* must be before source_user_tcl_files, so event bindings defined there 
+  * will be correctly appended to default bindings */
+ tcleval("set_bindings .drw");
+
  /*                                    */
  /* SOURCE XSCHEMRC SUPPLIED TCL FILES */
  /*                                    */
@@ -3150,7 +3154,6 @@ int Tcl_AppInit(Tcl_Interp *inter)
    if(cli_opt_do_netlist) set_modify(-1); /* set tab/window title */
  }
  xctx->pending_fullzoom=1;
- tcleval("set_bindings .drw");
  if(has_x) tclvareval("set_geom . [xschem get schname]", NULL);
  /* Necessary to tell xschem the initial area to display */