[elpa] 13/13: [gnugo int] Move ‘gnug o-position’ call down-chain.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit a1fe7f005d44fd059f91ecbf1d0ebdda20263c30
Author: Thien-Thi Nguyen <address@hidden>
Date:   Mon Apr 21 23:35:53 2014 +0200

    [gnugo int] Move ‘gnugo-position’ call down-chain.
    
    * packages/gnugo/gnugo.el (gnugo--climb-towards-root):
    ...into here if SPEC is neither number nor string.
    (gnugo-oops, gnugo-fancy-undo): Update accordingly.
---
 packages/gnugo/gnugo.el |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index d926725..345fd9b 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1957,7 +1957,9 @@ If FILENAME already exists, Emacs confirms that you wish 
to overwrite it."
                                  2)
                              spec)
                            (aref monkey 0))
-                 (let* ((pos spec)
+                 (let* ((pos (if (stringp spec)
+                                 spec
+                               (gnugo-position)))
                         (hmm (gnugo--mem-with-played-stone pos)))
                    ;; todo: relax ‘gnugo--user-play’ then lift restriction
                    (unless (eq (gnugo--prop<-color user-color)
@@ -2022,8 +2024,7 @@ Prefix arg means, instead, undo repeatedly up to and 
including
 the move which placed the stone at point, like `\\[gnugo-fancy-undo]'."
   (interactive "P")
   (gnugo-gate)
-  (gnugo--climb-towards-root (if position
-                                 (gnugo-position)
+  (gnugo--climb-towards-root (unless position
                                0)
                              nil t))
 
@@ -2218,8 +2219,7 @@ which placed the stone at point."
   (interactive "P")
   (gnugo--climb-towards-root
    (cond ((numberp count) count)
-         ((consp count) (car count))
-         (t (gnugo-position)))))
+         ((consp count) (car count)))))
 
 (defun gnugo-toggle-image-display-command () ; ugh
   "Toggle use of images to display the board, then refresh."