From 59d1008283f339d6c6d146979c4cff0c6430b095 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 16 May 2002 17:28:18 +0000 Subject: miscellaneous fixes --- chess-ics.el | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) (limited to 'chess-ics.el') diff --git a/chess-ics.el b/chess-ics.el index 9d5c9bb..dfe9774 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -365,19 +365,15 @@ who is black." (chess-game-set-tag game "White" chess-full-name) (chess-game-set-tag game "Black" chess-engine-opponent-name)) - (cond - ((chess-ply-keyword (car args) :resign) - (chess-engine-send nil "resign\n")) - (t - (let ((move - (if (chess-ply-any-keyword (car args) - :castle :long-castle) - (chess-ply-to-algebraic (car args)) - (concat (chess-index-to-coord - (car (chess-ply-changes (car args)))) "-" - (chess-index-to-coord - (cadr (chess-ply-changes (car args)))))))) - (chess-engine-send nil (concat move "\n"))))) + (let ((move + (if (chess-ply-any-keyword (car args) + :castle :long-castle) + (chess-ply-to-algebraic (car args)) + (concat (chess-index-to-coord + (car (chess-ply-changes (car args)))) "-" + (chess-index-to-coord + (cadr (chess-ply-changes (car args)))))))) + (chess-engine-send nil (concat move "\n"))) (if (chess-game-over-p game) (chess-game-set-data game 'active nil))) -- cgit v1.2.3