[elpa] 206/255: ensure prisoners are 0 at the start of a new game

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 89e86027c773ad4231cde71ec994c778b7a825ba
Author: Eric Schulte <address@hidden>
Date:   Tue May 21 16:40:18 2013 -0600

    ensure prisoners are 0 at the start of a new game
---
 go-board.el |   12 +++++++-----
 1 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/go-board.el b/go-board.el
index ca731c8..a4f8c67 100644
--- a/go-board.el
+++ b/go-board.el
@@ -303,7 +303,8 @@
                   "\n\n"
                   comment)))
       (go-board-paint)
-      (goto-char point))))
+      (goto-char point)))
+  buffer)
 
 (defun go-board (back-end &rest trackers)
   (let ((buffer (generate-new-buffer "*GO*")))
@@ -323,10 +324,11 @@
       (mapcar (lambda (tr) (setf (go-size tr) *size*)) trackers)
       (set (make-local-variable '*history*)
            (list (board-to-pieces (make-board *size*))))
-      (set (make-local-variable '*trackers*) trackers)
-      (set (make-local-variable '*trackers*) trackers)
-      (update-display (current-buffer)))
-    (pop-to-buffer buffer)))
+      (set (make-local-variable '*trackers*) trackers))
+    (pop-to-buffer buffer)
+    (plist-put *black* :prisoners 0)
+    (plist-put *white* :prisoners 0)
+    (update-display buffer)))
 
 
 ;;; User input