eschulte pushed a commit to branch go
in repository elpa.

commit 92d844c8a4447b24a48d360e6b4357e753efda3d
Author: Eric Schulte <[email protected]>
Date:   Mon May 20 18:58:53 2013 -0600

    print score after marking territory
---
 go-board.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/go-board.el b/go-board.el
index cec8b21..ca731c8 100644
--- a/go-board.el
+++ b/go-board.el
@@ -398,13 +398,13 @@
     (setf *turn* (other-color *turn*))
     (when *autoplay*
       (when (equalp :pass (go-board-next))
-        (message "final score: %s" (with-backends back (go-score back)))
         (mapc (lambda (move)
                 (go-board-mark-point (point-of-pos (cddr move))
                                      (go-board-cross (ecase (car move)
                                                        (:B 'black)
                                                        (:W 'white)))))
-              (with-backends back (go-territory back)))))))
+              (with-backends back (go-territory back)))
+        (message "final score: %s" (with-backends back (go-score back)))))))
 
 (defun go-board-undo (&optional num)
   (interactive "p")

Reply via email to