From 982430e0d4342e00782df8e20d24b65986fcff87 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Fri, 2 Jan 2004 16:10:46 +0000 Subject: Insert STRING in chess-engine-send, makes debugging easier --- chess-engine.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'chess-engine.el') diff --git a/chess-engine.el b/chess-engine.el index f3c2f30..f3c8527 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -367,7 +367,10 @@ (let ((proc chess-engine-process)) (if proc (if (memq (process-status proc) '(run open)) - (process-send-string proc string) + (progn + (goto-char (point-max)) + (insert-before-markers string) + (process-send-string proc string)) (chess-message 'engine-not-running) (chess-engine-command nil 'destroy)) (chess-engine-command nil 'send string))))) -- cgit v1.2.3