diff options
| -rw-r--r-- | chess-clock.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/chess-clock.el b/chess-clock.el index c2f0e7c..4adea68 100644 --- a/chess-clock.el +++ b/chess-clock.el @@ -51,9 +51,10 @@ ((eq event 'move) (when (> (chess-game-index game) 0) (let ((last-ply (car (last (chess-game-plies game) 2)))) - (nconc last-ply - (list :white (chess-game-data game 'white-remaining) - :black (chess-game-data game 'black-remaining)))))) + (chess-ply-set-keyword last-ply :white + (chess-game-data game 'white-remaining)) + (chess-ply-set-keyword last-ply :black + (chess-game-data game 'black-remaining))))) ((eq event 'destroy) (cancel-timer chess-clock-timer)))) |