diff options
| author | Mario Lang <mlang@delysid.org> | 2004-02-12 16:17:02 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-02-12 16:17:02 +0000 |
| commit | 20cf092d21a3077902a4d9d5a724faab09265e56 (patch) | |
| tree | 6ef25e4a7e3e4ed9eae5753f07b7c2532370335d | |
| parent | 3a86da9d9917f5f14be915864890c6be1f376522 (diff) | |
(chess-engine-entire-lines): New variable.
(chess-engine-filter): handle it.
| -rw-r--r-- | chess-engine.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/chess-engine.el b/chess-engine.el index 5304cc4..caf9a7b 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -11,6 +11,11 @@ "Code for reading movements and other commands from an engine." :group 'chess) +(defvar chess-engine-entire-lines nil + "If non-nil, `chee-engine-filter' will process output only if it is +terminated by a final newline.") +(make-variable-buffer-local 'chess-engine-entire-lines) + (defvar chess-engine-regexp-alist nil) (defvar chess-engine-response-handler nil) (defvar chess-engine-current-marker nil) @@ -422,7 +427,9 @@ event handler can take care of the data." (set-marker chess-engine-current-marker (point))) (if moving (goto-char chess-engine-current-marker)))) (when (and (not chess-engine-working) - (memq (char-before chess-engine-current-marker) '(?\n ?\r))) + (or (not chess-engine-entire-lines) + (memq (char-before chess-engine-current-marker) + '(?\n ?\r)))) (setq chess-engine-working t) (save-excursion (if chess-engine-last-pos |