From 583b7b5e5972557338bc46107ee743247065eb32 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Tue, 16 Apr 2002 16:31:42 +0000 Subject: Only set process-filter if it isn't already set to comint-output-filter --- chess-engine.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'chess-engine.el') diff --git a/chess-engine.el b/chess-engine.el index f745ced..3621496 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -265,7 +265,8 @@ (unless (memq (process-status proc) '(run open)) (chess-error 'failed-engine-start)) (setq chess-engine-process proc) - (set-process-filter proc 'chess-engine-filter)) + (when (not (equal (process-filter proc) 'comint-output-filter)) + (set-process-filter proc 'chess-engine-filter))) (setq chess-engine-current-marker (point-marker)) (current-buffer)))))) -- cgit v1.2.3