[elpa] 06/07: [gnugo frolic int] Don't go through ‘gnugo-frolic-quit’ for refresh.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit d26b9d59929e30cebae12c10713dfb72ba1e666d
Author: Thien-Thi Nguyen <address@hidden>
Date:   Wed Apr 9 07:24:48 2014 +0200

    [gnugo frolic int] Don't go through ‘gnugo-frolic-quit’ for refresh.
    
    * packages/gnugo/gnugo.el (gnugo-frolic-in-the-leaves):
    If ‘gnugo-frolic-parent-buffer’ is already set, don't clobber it.
    (gnugo--swiz): Don't call ‘gnugo-frolic-quit’.
    (gnugo-frolic-prune-branch): Likewise.
---
 packages/gnugo/gnugo.el |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 78c39d0..6cc635e 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -773,7 +773,8 @@ are dimmed.  Type \\[describe-mode] in that buffer for 
details."
   (interactive)
   (let* ((buf (get-buffer-create (concat (gnugo-get :diamond)
                                          "*GNUGO Frolic*")))
-         (from (current-buffer))
+         (from (or gnugo-frolic-parent-buffer
+                   (current-buffer)))
          ;; todo: use defface once we finally succumb to ‘customize’
          (dimmed-node-face (list :inherit 'default
                                  :foreground "gray50"))
@@ -971,8 +972,6 @@ are dimmed.  Type \\[describe-mode] in that buffer for 
details."
                     (mod (+ direction n) width))))
           (was (copy-sequence ends))
           (new-bidx (funcall flit bidx)))
-     (gnugo-frolic-quit)
-     (assert (eq 'gnugo-board-mode major-mode))
      (loop for bx below width
            do (aset ends (funcall flit bx)
                     (aref was bx)))
@@ -1033,7 +1032,6 @@ This fails if the monkey is on the current branch
      (gnugo--set-tree-ends tree (apply 'vector new)))
    (when (< a bidx)
      (aset monkey 1 (decf bidx)))
-   (gnugo-frolic-quit)
    (gnugo-frolic-in-the-leaves)
    (when line
      (goto-char (point-min))