[elpa] 04/07: [gnugo int] Use ‘gnugo /sgf-create’ more.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 88e429efb99939841f5518eb3df61264c23dd130
Author: Thien-Thi Nguyen <address@hidden>
Date:   Sat Apr 5 10:51:58 2014 +0200

    [gnugo int] Use ‘gnugo/sgf-create’ more.
    
    * packages/gnugo/gnugo.el (gnugo-board-mode): ...here,
    for uninitialized board setup, instead of manual consing.
---
 packages/gnugo/gnugo.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index fe8fde6..c135824 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -2068,9 +2068,10 @@ In this mode, keys do not self insert.
     (gnugo-put :rparen-ov (let ((ov (make-overlay 1 1)))
                             (overlay-put ov 'display ")")
                             ov))
-    (let ((tree (vector (list (list '(:FF . 4) '(:GM . 1))))))
+    (let* ((coll (gnugo/sgf-create "(;FF[4]GM[1])" t))
+           (tree (car coll)))
       (gnugo-put :sgf-gametree tree)
-      (gnugo-put :sgf-collection (list tree))
+      (gnugo-put :sgf-collection coll)
       (gnugo-put :monkey (vector (aref tree 0) 0 0)))
     (gnugo--SZ! board-size)
     (loop with gb = (gnugo--blackp (gnugo-other user-color))