From 556bf2ff3dd7456e8dec6ac9170f51fc1c001699 Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 16 Sep 2023 23:00:06 +0200
Subject: [PATCH] Set 'comint-process-echoes' for top-levels that use a tty

---
 sweeprolog.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sweeprolog.el b/sweeprolog.el
index 7b05c2a..a507d67 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -3194,6 +3194,7 @@ top-level."
               (if sweeprolog-top-level-use-pty
                   (progn
                     (make-comint-in-buffer "sweeprolog-top-level" buf nil)
+                    (setq-local comint-process-echoes t)
                     (process-send-eof (get-buffer-process buf))
                     (sweeprolog--query-once "sweep" "sweep_top_level_start_pty"
                                             (process-tty-name (get-buffer-process buf))))
@@ -3203,6 +3204,7 @@ top-level."
                                        buf
                                        (cons "localhost"
                                              sweeprolog-prolog-server-port))
+                (setq-local comint-process-echoes nil)
                 (sweeprolog--query-once "sweep" "sweep_accept_top_level_client" nil)))
         (let ((proc (get-buffer-process buf)))
           (set-process-filter proc
-- 
2.39.2