From 69b3e6329652da55900ca40f5e72f12138c6330e Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Mon, 24 Mar 2014 01:41:12 +0100 Subject: Check for internal-default-process-filter when deciding to install our default filter. --- chess-engine.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/chess-engine.el b/chess-engine.el index 9f54e2f..ab2ac63 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -306,7 +306,8 @@ Optionally supply a new RESPONSE-HANDLER." (when (and proc (processp proc)) (unless (memq (process-status proc) '(run open listen)) (chess-error 'failed-start)) - (unless (process-filter proc) + (if (or (not (process-filter proc)) + (eq (process-filter proc) 'internal-default-process-filter)) (set-process-filter proc 'chess-engine-filter))) (setq chess-engine-current-marker (point-marker)) (chess-game-set-data game 'engine (current-buffer))))))) -- cgit v1.2.3