From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 16 Sep 2023 21:00:06 +0000 (+0200)
Subject: Set 'comint-process-echoes' for top-levels that use a tty
X-Git-Tag: V9.1.15-sweep-0.25.0~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=556bf2ff3dd7456e8dec6ac9170f51fc1c001699;p=sweep.git

Set 'comint-process-echoes' for top-levels that use a tty
---

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