From e7c53b59b58bbca44344e922cd46741cb3210c40 Mon Sep 17 00:00:00 2001
From: Stefan Schippers <stefan.schippers@gmail.com>
Date: Wed, 27 Sep 2023 18:35:40 +0200
Subject: [PATCH] callback(): filter out any state value that uses bits above
 12

---
 src/callback.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/callback.c b/src/callback.c
index 942eea56..751da90f 100644
--- a/src/callback.c
+++ b/src/callback.c
@@ -1101,7 +1101,8 @@ int draw_xhair = tclgetboolvar("draw_crosshair");
  xctx->semaphore++; /* to recognize recursive callback() calls */
 
  c_snap = tclgetdoublevar("cadsnap");
- state &=~Mod2Mask; /* 20170511 filter out NumLock status */
+ state &= ~Mod2Mask; /* 20170511 filter out NumLock status */
+ state &= (1 <<13) -1; /* filter out anything above bit 12 (4096) */
  if(xctx->semaphore >= 2)
  {
    if(debug_var>=2)