diff options
| author | Mario Lang <mlang@delysid.org> | 2002-04-16 16:31:42 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2002-04-16 16:31:42 +0000 |
| commit | 583b7b5e5972557338bc46107ee743247065eb32 (patch) | |
| tree | 68478775c89654958a3dbab0554ba380cd54bd5a | |
| parent | bd0bd1965bbc3a18c0f5a218e417778c295bdd1f (diff) | |
Only set process-filter if it isn't already set to comint-output-filter
| -rw-r--r-- | chess-engine.el | 3 |
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)))))) |