diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-11 00:28:40 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-11 00:28:40 +0000 |
| commit | da4dceb58f252519caae28e3b2e049a5bd74c098 (patch) | |
| tree | 303ee6de672d0c1ff4a4b21bfc0f9aa3eb36843f | |
| parent | 54ec8abc770314b97bace34ec48a158828d07ab2 (diff) | |
*** no comment ***
| -rw-r--r-- | chess-engine.el | 9 | ||||
| -rw-r--r-- | chess-phalanx.el | 5 |
2 files changed, 7 insertions, 7 deletions
diff --git a/chess-engine.el b/chess-engine.el index b5067e8..2551bf7 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -387,7 +387,8 @@ function in all cases; this is merely a bandwidth-saver." (if chess-engine-last-pos (goto-char chess-engine-last-pos) (goto-char (point-min))) - (while (not (eobp)) + (while (and (not (eobp)) + (/= (line-end-position) (point-max))) (let ((triggers chess-engine-regexp-alist)) (while triggers ;; this could be accelerated by joining @@ -396,9 +397,9 @@ function in all cases; this is merely a bandwidth-saver." (funcall (cdar triggers))) (setq triggers nil) (setq triggers (cdr triggers))))) - (forward-line))) - (setq chess-engine-last-pos (point) - chess-engine-working nil))))))) + (forward-line)) + (setq chess-engine-last-pos (point))) + (setq chess-engine-working nil))))))) (provide 'chess-engine) diff --git a/chess-phalanx.el b/chess-phalanx.el index 417fa41..7b902a4 100644 --- a/chess-phalanx.el +++ b/chess-phalanx.el @@ -19,12 +19,11 @@ (defvar chess-phalanx-regexp-alist (list - (cons (concat "my move is \\(P?\\(" - chess-algebraic-regexp "\\)\\)\\s-*$") + (cons (concat "my move is P?\\(" chess-algebraic-regexp "\\)\\s-*$") (function (lambda () (funcall chess-engine-response-handler 'move - (chess-engine-convert-algebraic (match-string 2)))))) + (chess-engine-convert-algebraic (match-string 1)))))) (cons "Illegal move:\\s-*\\(.*\\)" (function (lambda () |