From 7b321614246d94eb6af71c38f69c0fde9965aebf Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 9 Apr 2002 21:36:44 +0000 Subject: *** no comment *** --- chess-ics.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'chess-ics.el') 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)))) -- cgit v1.2.3