diff options
| author | Mario Lang <mlang@delysid.org> | 2004-02-05 14:38:34 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-02-05 14:38:34 +0000 |
| commit | 7398595b994f0598a91a520cc85e0f52407a60ca (patch) | |
| tree | 35c73e96a23d025c4ed50f82d78a185501d9a469 /chess-ics.el | |
| parent | b07fe1b072db7aad046d9eedf0e9dc32f12f9446 (diff) | |
sort of pseudobarf on refresh to easy finding of the obscure observe bug, and set back-moved-first game-data always, so that it even works if a game is reset to a new starting position
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/chess-ics.el b/chess-ics.el index 6a11d34..781ae02 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -511,7 +511,7 @@ See `chess-ics-game'.") (chess-game-move game ply) (setq error nil)) (if (= index (chess-game-index game)) - (setq error nil) ; Ignore a "refresh" command + (setq error 'refresh) ; Ignore a "refresh" command (if (and (> index (1+ (chess-game-index game))) (= 1 (chess-game-seq game))) ;; we lack a complete game, try to get it via the movelist @@ -533,7 +533,7 @@ See `chess-ics-game'.") (chess-game-set-data game 'active t)) (setq error 'setting-start-position) (chess-game-set-start-position game position) - (unless color (chess-game-set-data game 'black-moved-first t))) + (chess-game-set-data game 'black-moved-first (not color))) (setq error 'orienting-board) (chess-game-run-hooks game 'orient) (setq error nil)) |