diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-16 21:29:12 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-16 21:29:12 +0000 |
| commit | df9a0f1d290e8729a6fbe7fcceb152097062fb18 (patch) | |
| tree | 1d8e5536e19331e7b69c9181bfbaf5843188e118 | |
| parent | 2f905a7afa8e6e8e7b322cf48ce496c952c6bcbb (diff) | |
(chess-clock-handler): Use `chess-ply-set-keyword', to avoid
double-adding keywords.
| -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)))) |