[elpa] externals/gnugo b586e0c 268/357: [gnugo] Refuse to climb towards root when in Assist mode.

[Stefan Monnier]

branch: externals/gnugo
commit b586e0c9cd48dd233ca6fa40d7e5678ae4970151
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

    [gnugo] Refuse to climb towards root when in Assist mode.
    
    * packages/gnugo/gnugo.el (gnugo--climb-towards-root):
    Signal ‘user-error’ if Assist mode is enabled.
---
 gnugo.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gnugo.el b/gnugo.el
index 06488a7..9159925 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -1996,6 +1996,8 @@ If FILENAME already exists, Emacs confirms that you wish 
to overwrite it."
 
 (defun gnugo--climb-towards-root (spec &optional noalt keep)
   (gnugo-gate)
+  (when (gnugo--:karma :user-color)
+    (user-error "Sorry, Assist mode enabled"))
   (let* ((user-color (gnugo-get :user-color))
          (monkey (gnugo-get :monkey))
          (tree (gnugo-get :sgf-gametree))