summaryrefslogtreecommitdiff
path: root/chess-engine.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-04-11 01:32:26 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-04-11 01:32:26 +0000
commitb95fa9f2840a8006b149e5a957228c91d3284dcf (patch)
tree24da13f13e105342d67c6c6f2beb13b6ec8e71dd /chess-engine.el
parentade1d16b2d10f470a843d7704bec88b6ef28ca00 (diff)
*** no comment ***
Diffstat (limited to 'chess-engine.el')
-rw-r--r--chess-engine.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/chess-engine.el b/chess-engine.el
index 6cb3106..7768bad 100644
--- a/chess-engine.el
+++ b/chess-engine.el
@@ -206,7 +206,7 @@
(when game
(if (y-or-n-p "Your opponent offers a draw, accept? ")
(progn
- (chess-game-draw game (car args))
+ (chess-game-draw game)
(chess-engine-command nil 'accept-draw)
(chess-game-set-data game 'active nil))
(chess-engine-command nil 'decline-draw))
@@ -215,7 +215,7 @@
((eq event 'accept-draw)
(when game
(message "Your draw offer was accepted")
- (chess-game-draw game (car args))
+ (chess-game-draw game)
(chess-game-set-data game 'active nil)
t))
@@ -246,7 +246,7 @@
(defun chess-engine-on-kill ()
"Function called when the buffer is killed."
- (chess-engine-command (current-buffer) 'shutdown))
+ (chess-engine-command nil 'shutdown))
(defun chess-engine-destroy (engine)
(let ((buf (or engine (current-buffer))))