diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-09 10:35:48 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-09 10:35:48 +0000 |
| commit | eb5e0a5dddb2a4f98efeb5adfeeefef5961e5545 (patch) | |
| tree | 32be96cb8f16b3ca75bdafa1f3a468a265d71ae1 | |
| parent | e72de811ab1334214dd80a01951cc99db83c2dbb (diff) | |
*** no comment ***
| -rw-r--r-- | chess-algebraic.el | 2 | ||||
| -rw-r--r-- | chess-engine.el | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/chess-algebraic.el b/chess-algebraic.el index b7038cd..7aebdf3 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -73,7 +73,7 @@ This regexp handles both long and short form.") (setq source (aref source 0))) (let (candidates which) (unless (< piece ?a) - (setq piece ?P)) + (setq source piece piece ?P)) ;; we must use our knowledge of how pieces can ;; move, to determine which piece is meant by the ;; piece indicator diff --git a/chess-engine.el b/chess-engine.el index 23622ed..396b6c4 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -71,6 +71,7 @@ (let ((game (chess-engine-game nil))) (when (and game (chess-game-get-data game 'my-color) (= (chess-game-index game) 0)) + (message "Your opponent played the first move, you are now black") (chess-game-run-hooks game 'pass) ;; if no one else flipped my-color, we'll do it (if (chess-game-get-data game 'my-color) |