summaryrefslogtreecommitdiff
path: root/chess-announce.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-04-16 02:38:59 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-04-16 02:38:59 +0000
commit40eddef43dfde4f1f14101e1f3bbc0d4621c8a37 (patch)
treebd8cc9729a0f22999a4811499c975254624e766c /chess-announce.el
parent6bb61cd98f852b3f4d013d2095b5511d53b8d983 (diff)
*** no comment ***
Diffstat (limited to 'chess-announce.el')
-rw-r--r--chess-announce.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/chess-announce.el b/chess-announce.el
index 1ef1a23..bad8a56 100644
--- a/chess-announce.el
+++ b/chess-announce.el
@@ -18,6 +18,7 @@
(check . "check")
(checkmate . "checkmate")
(stalemate . "stalemate")
+ (en-passant . "on possont")
(piece-moves . "%s to %s")
(piece-takes . "%s takes %s at %s")))
@@ -91,6 +92,8 @@ shutdown the announcer process, if necessary.")
chess-announce-names)))
(chess-index-to-coord target))))))
+ (if (chess-ply-keyword ply :en-passant)
+ (setq text (concat text ", " (chess-string 'en-passant))))
(if (chess-ply-keyword ply :check)
(setq text (concat text ", " (chess-string 'check))))
(if (chess-ply-keyword ply :checkmate)