From 1a9ad51e753e9144d36d097d7f984251e06a88ce Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 28 Mar 2002 23:20:05 +0000 Subject: more fixes --- chess-display.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'chess-display.el') diff --git a/chess-display.el b/chess-display.el index 0217d88..422940b 100644 --- a/chess-display.el +++ b/chess-display.el @@ -265,6 +265,8 @@ If only START is given, it must be in algebraic move notation." start target)))) (cond ((chess-display-active-p) + ;; make the move and then announce it + (chess-game-move chess-display-game ply) (chess-session-event chess-display-session 'move ply)) (chess-display-game ;; jww (2002-03-28): This should beget a variation, or alter @@ -315,11 +317,15 @@ See `chess-display-type' for the different kinds of displays." (chess-display-set-game display (car args))) ((eq event 'highlight) - ;; calling `chess-display-highlight' would be recursive + ;; calling `chess-display-highlight' here would be recursive (if chess-display-highlight-function (funcall chess-display-highlight-function (car args) (cadr args)))) + ((eq event 'pass) + (chess-display-set-perspective + display (not (chess-display-perspective display)))) + (t (chess-display-update display)))))) -- cgit v1.2.3