diff options
| author | Mario Lang <mlang@delysid.org> | 2014-03-24 01:41:12 +0100 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-03-24 01:41:12 +0100 |
| commit | 69b3e6329652da55900ca40f5e72f12138c6330e (patch) | |
| tree | 4419f284c0169ad93e143335f264641f5e18c769 | |
| parent | a99e2d007cb5b62fdc80790e63c2c51109fd73ec (diff) | |
Check for internal-default-process-filter when deciding to install our default 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 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))))))) |