[elpa] 140/255: board propagates setf'd moves to trackers

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit cfb57a818c6435bd0d5a952c6583a58489da0fb7
Author: Eric Schulte <address@hidden>
Date:   Sat Jun 2 19:50:33 2012 -0600

    board propagates setf'd moves to trackers
---
 go-board.el |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/go-board.el b/go-board.el
index b843143..4c8540b 100644
--- a/go-board.el
+++ b/go-board.el
@@ -379,6 +379,7 @@
   (with-board board
     (apply-turn-to-board (list move))
     (goto-char (point-of-pos (cddr move)))
+    (mapcar (lambda (tr) (setf (go-move tr) move)) *trackers*)
     (setf *turn* (other-color *turn*))))
 
 (defmethod go-labels ((board board))