diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-12 01:17:38 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-12 01:17:38 +0000 |
| commit | cdba8a5aed3bd66e62f348a7064acece342bb68e (patch) | |
| tree | 286d53818453b1872483a1c73fface221e87eb3a /chess-announce.el | |
| parent | efeb1b7a6e0caea5d1722cce7a6414190cdeae06 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-announce.el')
| -rw-r--r-- | chess-announce.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/chess-announce.el b/chess-announce.el index ff1c7f1..27554a8 100644 --- a/chess-announce.el +++ b/chess-announce.el @@ -18,7 +18,8 @@ (autoload 'festival-kill-process "festival") (defvar chess-announce-functions - (if (executable-find "festival") + (if (and (executable-find "festival") + (not (featurep 'emacspeak))) (if (fboundp 'festival-say-string) '(festival-start-process festival-say-string festival-kill-process) '(ignore chess-announce-festival ignore)) @@ -45,9 +46,8 @@ See `chess-display-type' for the different kinds of displays." (pos (chess-ply-pos ply))) (unless (eq (chess-game-data game 'my-color) (chess-pos-side-to-move pos)) - (let* ((changes (chess-ply-changes ply)) - (source (car changes)) - (target (cadr changes)) + (let* ((source (chess-ply-source ply)) + (target (chess-ply-target ply)) (s-piece (chess-pos-piece pos source)) (t-piece (chess-pos-piece pos target)) text) |