From 031ec1e18b48e59e914462b36fa91f5ef1ccee5e Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Fri, 8 Nov 2024 11:06:07 +1100
Subject: fix ctrl-d shortcut

---
 jterm.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'jterm.hs')

diff --git a/jterm.hs b/jterm.hs
index 9382faf..2b49a2a 100644
--- a/jterm.hs
+++ b/jterm.hs
@@ -369,9 +369,10 @@ handleEvent display win bgcolour fgcolour linecolour selcolour font event = do
                   -- ctrl-q (write log)
                   home <- getEnv "HOME"
                   T.writeFile (home <> "/jterm.log") (R.toText (content b))
-                (4, 115) -> do
+                (4, 100) -> do
                   -- ctrl-d (send without sending to pty)
                   put $ b {content = content b <> selstr <> " "}
+                (4, 115) -> do
                   -- ctrl-s (send)
                   put $ b {content = content b <> selstr <> "\n"}
                   sendline
-- 
cgit v1.2.3