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 /chess-engine.el | |
| parent | 54ec8abc770314b97bace34ec48a158828d07ab2 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-engine.el')
| -rw-r--r-- | chess-engine.el | 9 |
1 files changed, 5 insertions, 4 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) |