eschulte pushed a commit to branch go
in repository elpa.
commit ad1c0a390a4185c9765ce2679fe6d013cb2a8628
Author: Eric Schulte <[email protected]>
Date: Tue Jul 17 18:46:10 2012 -0600
scattered changes from a while ago
---
go-board.el | 2 +-
go.el | 4 +---
2 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/go-board.el b/go-board.el
index 8c784b6..f48ddd0 100644
--- a/go-board.el
+++ b/go-board.el
@@ -358,7 +358,7 @@
(defun go-board-move (&optional pos)
(interactive)
(let* ((color (case *turn* (:B "black") (:W "white")))
- (pos (or pos (cons (gtp-char-to-num
+ (pos (or pos (cons (char-to-num
(aref (downcase
(org-icompleting-read
(format "[%s] X pos: " color)
diff --git a/go.el b/go.el
index 6389417..961c873 100644
--- a/go.el
+++ b/go.el
@@ -52,10 +52,8 @@
(let ((it (make-instance back-end))
(size (read (org-icompleting-read
"board size: "
- (mapcar #'number-to-string '(9 13 19)))))
- (name (read-from-minibuffer "name: ")))
+ (mapcar #'number-to-string '(9 13 19))))))
(setf (go-size it) size)
- (ignoring-unsupported (setf (go-name it) name))
it))
(defun play-go ()
