add ctrl-d for sending to buffer only not pty

1 files changed, 2 insertions, 0 deletions

diff --git a/jterm.hs b/jterm.hs
index 0d60341..c7498a6 100644
--- a/jterm.hs
+++ b/jterm.hs
@@ -371,6 +371,8 @@ handleEvent display win bgcolour fgcolour linecolour selcolour font event = do
                   home <- getEnv "HOME"
                   T.writeFile (home <> "/jterm.log") (R.toText (content b))
                 (4, 115) -> do
+                  -- ctrl-d (send without sending to pty)
+                  put $ b {content = content b <> selstr <> " "}
                   -- ctrl-s (send)
                   put $ b {content = content b <> selstr <> "\n"}
                   sendline