eschulte pushed a commit to branch go
in repository elpa.
commit 89e86027c773ad4231cde71ec994c778b7a825ba
Author: Eric Schulte <schulte.e...@gmail.com>
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
