eschulte pushed a commit to branch go in repository elpa. commit d5ccfe721f001a066e9d9fbf981653556f33f905 Author: Eric Schulte <eric.schu...@gmx.com> Date: Sun May 27 09:41:39 2012 -0600
simpler name for main go-board function --- go-board.el | 4 ++-- go-tests.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/go-board.el b/go-board.el index 396d250..7ee4a93 100644 --- a/go-board.el +++ b/go-board.el @@ -221,7 +221,7 @@ (go-board-paint) (goto-char (point-min)))) -(defun go-board-display (back-end &rest trackers) +(defun go-board (back-end &rest trackers) (let ((buffer (generate-new-buffer "*GO*"))) (with-current-buffer buffer (go-board-mode) @@ -332,7 +332,7 @@ (defun go-board-play (&optional level) (interactive "P") (let ((*autoplay* t)) - (go-board-display + (go-board (make-instance 'gnugo :buffer (apply #'go-gnugo-start-process (when level diff --git a/go-tests.el b/go-tests.el index eca67e1..c43ff31 100644 --- a/go-tests.el +++ b/go-tests.el @@ -260,7 +260,7 @@ (defmacro with-sgf-display (file &rest body) (declare (indent 1)) (let ((buffer (gensym "sgf-display-buffer"))) - `(let ((,buffer (go-board-display + `(let ((,buffer (go-board (make-instance 'sgf :self (sgf2el-file-to-el ,file) :index '(0)))))