diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-16 02:38:59 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-16 02:38:59 +0000 |
| commit | 40eddef43dfde4f1f14101e1f3bbc0d4621c8a37 (patch) | |
| tree | bd8cc9729a0f22999a4811499c975254624e766c | |
| parent | 6bb61cd98f852b3f4d013d2095b5511d53b8d983 (diff) | |
*** no comment ***
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | chess-announce.el | 3 | ||||
| -rw-r--r-- | chess-images.el | 2 | ||||
| -rw-r--r-- | chess-sound.el | 2 |
4 files changed, 12 insertions, 0 deletions
@@ -1,3 +1,8 @@ 2002-04-15 John Wiegley <johnw@gnu.org> + * Did some major performance work on chess-legal-plies, + chess-ply-create and chess-search-position (these three, together + with chess-pos-move, represent the majority of algorithmic work + done by chess.el). + * Created this file. 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) diff --git a/chess-images.el b/chess-images.el index e6f86ca..a68fe59 100644 --- a/chess-images.el +++ b/chess-images.el @@ -513,6 +513,8 @@ This is necessary for bizzare Emacs reasons." chess-images-border-width) nil t :color-symbols (list (cons "background" chess-images-border-color)))))) + ;; let the garbage collector know we're through here + (garbage-collect) (chess-message 'piece-images-loaded)) (provide 'chess-images) diff --git a/chess-sound.el b/chess-sound.el index 1740261..08b2f7f 100644 --- a/chess-sound.el +++ b/chess-sound.el @@ -91,6 +91,8 @@ (chess-sound (format "%c_" (downcase t-piece))) (chess-sound (chess-index-to-coord target)))) + (if (chess-ply-keyword ply :en-passant) + (chess-sound "enpassant")) (if (chess-ply-keyword ply :check) (chess-sound "+_")) (if (chess-ply-keyword ply :checkmate) |