[elpa] 04/05: [gnugo] Make undo commands silently handle overkill.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 9060d26640ec99de649bf1c2a14c83ed8828c064
Author: Thien-Thi Nguyen <address@hidden>
Date:   Thu Apr 24 15:00:37 2014 +0200

    [gnugo] Make undo commands silently handle overkill.
    
    It's impolite to reflect impoliteness.  :-D
    
    * packages/gnugo/gnugo.el (gnugo--climb-towards-root):
    Don't use ‘gnugo--q/ue’ for GTP "undo"; instead,
    use ‘gnugo--q’, detect overkill, and stop looping.
---
 packages/gnugo/NEWS     |    1 +
 packages/gnugo/gnugo.el |    4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/packages/gnugo/NEWS b/packages/gnugo/NEWS
index 6898cf0..da24303 100644
--- a/packages/gnugo/NEWS
+++ b/packages/gnugo/NEWS
@@ -33,6 +33,7 @@ NB: "RCS: X..Y " means that the particular release includes
   - new major mode: GNUGO Frolic (gnugo-frolic-mode)
   - GNUGO Board mode now derived from Special mode
   - position arg validated for direct GTP commands ‘undo’, ‘gg-undo’
+  - undo commands no longer signal error on overkill
   - performance improvements
   - of interest to hackers (see source, BI => backward incompatible)
     - dropped var: ‘gnugo-inhibit-refresh’ (BI)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 24adb49..e8e7a71 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1979,8 +1979,8 @@ If FILENAME already exists, Emacs confirms that you wish 
to overwrite it."
                    (cdr hmm)))))
     (when (gnugo-get :game-over)
       (gnugo--unclose-game))
-    (while (not (eq stop (aref monkey 0)))
-      (gnugo--q/ue "undo")
+    (while (and (not (eq stop (aref monkey 0)))
+                (gnugo--no-worries (gnugo--q "undo")))
       (pop (aref monkey 0))
       (gnugo-put :last-mover (gnugo-current-player))
       (gnugo-merge-showboard-results)   ; all