summaryrefslogtreecommitdiff
path: root/chess-announce.el
diff options
context:
space:
mode:
Diffstat (limited to 'chess-announce.el')
-rw-r--r--chess-announce.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/chess-announce.el b/chess-announce.el
index a607543..8619e74 100644
--- a/chess-announce.el
+++ b/chess-announce.el
@@ -105,7 +105,9 @@ shutdown the announcer process, if necessary.")
(if (chess-ply-keyword ply :stalemate)
(setq text (concat text ", " (chess-string 'stalemate))))
- (funcall (nth 1 chess-announce-functions) text)))))))
+ (funcall (nth 1 chess-announce-functions) text)))))
+ ((eq event 'kibitz)
+ (funcall (nth 1 chess-announce-functions) (car args)))))
(defun chess-announce-festival (text)
"Announce the given text using festival.