[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/01: [gnugo int] Use ‘gnugo --tree-ends’ more.
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/01: [gnugo int] Use ‘gnugo --tree-ends’ more. |
Date: |
Sat, 05 Apr 2014 11:22:36 +0000 |
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))))))