diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-09 21:36:44 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-09 21:36:44 +0000 |
| commit | 7b321614246d94eb6af71c38f69c0fde9965aebf (patch) | |
| tree | 3d2d06baf1e6620e73fdced555e35c5efba01c16 /chess-ics.el | |
| parent | eb5e0a5dddb2a4f98efeb5adfeeefef5961e5545 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/chess-ics.el b/chess-ics.el index a6226ec..cadc955 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -118,7 +118,8 @@ who is black." (list (car info))) (unless (string= (cadr info) ics-handle) (chess-game-run-hooks (chess-engine-game nil) 'pass))) - (delete-region begin end))) + (delete-region begin end) + t)) (defvar chess-ics-regexp-alist (list (cons "\\(<12> \\(.+\\)\\)" 'chess-ics-handle-move) @@ -203,10 +204,9 @@ who is black." (while triggers ;; this could be accelerated by joining together the ;; regexps - (if (looking-at (concat "[^\n\r]*" (caar triggers))) - (progn - (funcall (cdar triggers)) - (setq triggers nil)) + (if (and (looking-at (concat "[^\n\r]*" (caar triggers))) + (funcall (cdar triggers))) + (setq triggers nil) (setq triggers (cdr triggers))))) (forward-line)) (setq chess-engine-last-pos (point)))) |