fix ctrl-d shortcut

1 files changed, 2 insertions, 1 deletions

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