diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-03-28 23:20:05 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-03-28 23:20:05 +0000 |
| commit | 1a9ad51e753e9144d36d097d7f984251e06a88ce (patch) | |
| tree | 881fb2d51bf062088e78ee80bb7066baac6a72d9 /chess-display.el | |
| parent | 34a595962c5b153f6616bbe8420b8f389c493a3c (diff) | |
more fixes
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)))))) |