summaryrefslogtreecommitdiff
path: root/chess-engine.el
diff options
context:
space:
mode:
authorMario Lang <mlang@delysid.org>2002-04-16 16:31:42 +0000
committerMario Lang <mlang@delysid.org>2002-04-16 16:31:42 +0000
commit583b7b5e5972557338bc46107ee743247065eb32 (patch)
tree68478775c89654958a3dbab0554ba380cd54bd5a /chess-engine.el
parentbd0bd1965bbc3a18c0f5a218e417778c295bdd1f (diff)
Only set process-filter if it isn't already set to comint-output-filter
Diffstat (limited to 'chess-engine.el')
-rw-r--r--chess-engine.el3
1 files changed, 2 insertions, 1 deletions
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))))))