diff options
| author | Mario Lang <mlang@delysid.org> | 2002-04-16 17:12:57 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2002-04-16 17:12:57 +0000 |
| commit | 7355cb4c0c8b1b36eef06d495065fb1777c9955a (patch) | |
| tree | f97b9710cc3b35297174359f09b2f54082e6db66 /chess-ics.el | |
| parent | 146b3661c5bfc845cd8ab6c14ee41d0bdbe98da6 (diff) | |
set en-passent status
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/chess-ics.el b/chess-ics.el index 60bcf2b..d961a58 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -66,6 +66,9 @@ who is black." ;; -1 if the previous move was NOT a double pawn push, otherwise the chess ;; board file (numbered 0--7 for a--h) in which the double push was made + (let ((index (string-to-number (car parts)))) + (when (> index 0) + (chess-pos-set-en-passant position index))) (setq parts (cdr parts)) ;; can White still castle short? (0=no, 1=yes) @@ -144,6 +147,7 @@ who is black." ;; flip field for board orientation: 1 = Black at bottom, 0 = White at ;; bottom. (setq parts (cdr parts)) + (setq parts (cdr parts)) (setq parts (cdr parts)) |