From 5ecc55b37d9c073340b2e815d5e7a79e7ed2ada8 Mon Sep 17 00:00:00 2001
From: "R. Timothy Edwards" <tim@opencircuitdesign.com>
Date: Thu, 22 May 2025 08:47:03 -0400
Subject: [PATCH] Added some alternative key bindings to the keypad for
 "stretch" commands, because the keypad numerical values no longer work
 regardless of the setting of Num Lock.  The keypad arrow keys alone implement
 "move", while Shift + keypad arrow keys implement "stretch".

---
 VERSION                | 2 +-
 magic/proto.magicrc.in | 8 ++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/VERSION b/VERSION
index 36d1adb8..4ce201e3 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.527
+8.3.528
diff --git a/magic/proto.magicrc.in b/magic/proto.magicrc.in
index e374fa15..23655803 100644
--- a/magic/proto.magicrc.in
+++ b/magic/proto.magicrc.in
@@ -147,11 +147,15 @@ macro XK_KP_End "move sw 1"
 macro XK_KP_Down "move d 1"
 macro XK_KP_2 "stretch d 1"
 macro Shift_XK_KP_2 "stretch d 1"
+macro Shift_XK_KP_Down "stretch d 1"
+macro Control_XK_KP_Down "stretch d 1i"
 macro XK_2 "stretch d 1"
 macro XK_KP_Next "move se 1"
 macro XK_KP_Left "move l 1"
 macro XK_KP_4 "stretch l 1"
 macro Shift_XK_KP_4 "stretch l 1"
+macro Shift_XK_KP_Left "stretch l 1"
+macro Control_XK_KP_Left "stretch l 1i"
 macro XK_4 "stretch l 1"
 macro XK_KP_Begin "findbox zoom"
 macro XK_KP_5 "findbox"
@@ -160,11 +164,15 @@ macro XK_5 "findbox"
 macro XK_KP_Right "move r 1"
 macro XK_KP_6 "stretch r 1"
 macro Shift_XK_KP_6 "stretch r 1"
+macro Shift_XK_KP_Right "stretch r 1"
+macro Control_XK_KP_Right "stretch r 1i"
 macro XK_6 "stretch r 1"
 macro XK_KP_Home "move nw 1"
 macro XK_KP_Up "move u 1"
 macro XK_KP_8 "stretch u 1"
 macro Shift_XK_KP_8 "stretch u 1"
+macro Shift_XK_KP_Up "stretch u 1"
+macro Control_XK_KP_Up "stretch u 1i"
 macro XK_8 "stretch u 1"
 macro XK_KP_Prior "move ne 1"
 # Scroll wheel bindings