diff options
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 8 |
1 files changed, 7 insertions, 1 deletions
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)))))) |