diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-10 01:17:48 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-10 01:17:48 +0000 |
| commit | 0bad9bdd7634f039d5a30cfb19b100bbfe54d18e (patch) | |
| tree | 3582adb2f5cafdd7b54957b019910f852d00f6ba /chess-pos.el | |
| parent | 92dd9a7cb23d4ab14102e02a9f45f096fe8fff13 (diff) | |
Support smart killing/yanking
Diffstat (limited to 'chess-pos.el')
| -rw-r--r-- | chess-pos.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/chess-pos.el b/chess-pos.el index d6aa178..33f1aad 100644 --- a/chess-pos.el +++ b/chess-pos.el @@ -301,7 +301,10 @@ trying to move a blank square." ;; promote the piece if we were meant to (let ((new-piece (cadr (memq :promote changes)))) (if new-piece - (chess-pos-set-piece position (cadr changes) new-piece))) + (chess-pos-set-piece position (cadr changes) + (if color + new-piece + (downcase new-piece))))) ;; did we leave the position in check, mate or stalemate? (cond |