[elpa] 139/255: fixed off-by-one in igs moves & tracking last move

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 695f752368d9a0f733177b80fcabf7b4d0feb1e3
Author: Eric Schulte <address@hidden>
Date:   Sat Jun 2 18:55:01 2012 -0600

    fixed off-by-one in igs moves & tracking last move
---
 back-ends/igs.el |    2 +-
 go-board.el      |    1 +
 2 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/back-ends/igs.el b/back-ends/igs.el
index effd428..298117a 100644
--- a/back-ends/igs.el
+++ b/back-ends/igs.el
@@ -252,7 +252,7 @@
   (cons (make-keyword color)
         (cons :pos
               (cons (char-to-num (aref igs 0))
-                    (read (substring igs 1))))))
+                    (1- (read (substring igs 1)))))))
 
 (defun igs-current-game ()
   (aget *igs-games* *igs-current-game*))
diff --git a/go-board.el b/go-board.el
index bf86413..b843143 100644
--- a/go-board.el
+++ b/go-board.el
@@ -378,6 +378,7 @@
 (defmethod set-go-move ((board board) move)
   (with-board board
     (apply-turn-to-board (list move))
+    (goto-char (point-of-pos (cddr move)))
     (setf *turn* (other-color *turn*))))
 
 (defmethod go-labels ((board board))