diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-12 20:21:58 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-12 20:21:58 +0000 |
| commit | 5df29686990334d699a6558d59b1e3bec102e3a7 (patch) | |
| tree | 40ba87257c37f964c1b6e52b77ed79fac6d6b06b /chess-engine.el | |
| parent | 758e770833d91fde40219e2f8bd9f8588b56706f (diff) | |
*** no comment ***
Diffstat (limited to 'chess-engine.el')
| -rw-r--r-- | chess-engine.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/chess-engine.el b/chess-engine.el index 86916a1..60691f8 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -452,11 +452,11 @@ function in all cases; this is merely a bandwidth-saver." (if moving (goto-char chess-engine-current-marker))) (unless chess-engine-working (setq chess-engine-working t) - (unwind-protect - (save-excursion - (if chess-engine-last-pos - (goto-char chess-engine-last-pos) - (goto-char (point-min))) + (save-excursion + (if chess-engine-last-pos + (goto-char chess-engine-last-pos) + (goto-char (point-min))) + (unwind-protect (while (and (not (eobp)) (/= (line-end-position) (point-max))) (let ((triggers chess-engine-regexp-alist)) @@ -468,8 +468,8 @@ function in all cases; this is merely a bandwidth-saver." (setq triggers nil) (setq triggers (cdr triggers))))) (forward-line)) - (setq chess-engine-last-pos (point))) - (setq chess-engine-working nil))))))) + (setq chess-engine-last-pos (point) + chess-engine-working nil)))))))) (provide 'chess-engine) |