diff options
| author | Mario Lang <mlang@delysid.org> | 2004-02-06 12:29:33 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-02-06 12:29:33 +0000 |
| commit | 6d80bc77703b2c722f89ad417e9c7ad19dcd9d63 (patch) | |
| tree | 46736731b98f12689955de7e7938b0cba0bc22f0 /chess-display.el | |
| parent | 956a39c706610340f2a58380a30abbcc545f3417 (diff) | |
(chess-display-paint-move): Handle :en-passant
captures (remove the captured pawn from the board).
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/chess-display.el b/chess-display.el index 7e70f31..b925908 100644 --- a/chess-display.el +++ b/chess-display.el @@ -12,7 +12,8 @@ :group 'chess) (defcustom chess-display-popup t - "If non-nil, popup displays whenever a significant event occurs." + "If non-nil (the default), popup displays whenever a significant event +occurs." :type 'boolean :group 'chess-display) @@ -334,7 +335,11 @@ also view the same game." (downcase new-piece)) to) (funcall chess-display-event-handler 'draw-square (chess-display-index-pos nil to) - (chess-pos-piece position from) to)))) + (chess-pos-piece position from) to))) + (when (chess-ply-keyword ply :en-passant) + (funcall chess-display-event-handler 'draw-square + (chess-display-index-pos nil (chess-pos-en-passant position)) + ? (chess-pos-en-passant position)))) (setq ch (cddr ch))))))) (chess-message-catalog 'english |