[elpa] 01/01: [gnugo int] Use ‘gnugo --tree-ends’ more.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 68cf5be8ad51a0ac754469b2e611865ca92147c0
Author: Thien-Thi Nguyen <address@hidden>
Date:   Sat Apr 5 13:26:41 2014 +0200

    [gnugo int] Use ‘gnugo--tree-ends’ more.
    
    Omission from 2014-04-05,
    "Add abstractions: gnugo--{,set-}tree-ends".
    
    * packages/gnugo/gnugo.el (gnugo-note, gnugo-magic-undo): ...here.
---
 packages/gnugo/gnugo.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index e45a6ff..83f503c 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1011,7 +1011,7 @@ are dimmed.  The buffer is in View minor mode."
                        (push mem (nthcdr bidx ls))
                        (apply 'vector ls))))
              (push fruit mem)
-             (aset tree bidx mem)))
+             (aset ends bidx mem)))
           (setf (aref monkey 0) mem)
           (incf (aref monkey 2)))
       (setcdr (last (car mem)) fruit))))
@@ -1683,8 +1683,8 @@ when play resumes."
          (user-color (gnugo-get :user-color))
          (monkey (gnugo-get :monkey))
          (tree (gnugo-get :sgf-gametree))
-         (remorseful (not (gnugo--no-regrets
-                           monkey (gnugo--tree-ends tree))))
+         (ends (gnugo--tree-ends tree))
+         (remorseful (not (gnugo--no-regrets monkey ends)))
          done ans)
     (cond ((numberp spec)
            (setq n (if (zerop spec)
@@ -1729,7 +1729,7 @@ when play resumes."
                                    (gnugo-get :center-position)))
       (gnugo-refresh t)
       (unless (or keep remorseful)
-        (aset tree (aref monkey 1) (aref monkey 0)))
+        (aset ends (aref monkey 1) (aref monkey 0)))
       (when (and ulastp (not noalt))
         (gnugo-get-move (gnugo-get :gnugo-color))))))