From cdba8a5aed3bd66e62f348a7064acece342bb68e Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 12 Apr 2002 01:17:38 +0000 Subject: *** no comment *** --- chess-announce.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'chess-announce.el') 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) -- cgit v1.2.3