From 5df29686990334d699a6558d59b1e3bec102e3a7 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 12 Apr 2002 20:21:58 +0000 Subject: *** no comment *** --- chess-engine.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'chess-engine.el') 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) -- cgit v1.2.3