[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/03: [gnugo] Refuse to climb towards root when in Assist mode.
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/03: [gnugo] Refuse to climb towards root when in Assist mode. |
Date: |
Wed, 30 Apr 2014 07:30:40 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit 8f57841a3e823ad5f1cd6afd9832de39f31fdf0d
Author: Thien-Thi Nguyen <address@hidden>
Date: Wed Apr 30 09:19:04 2014 +0200
[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.
---
packages/gnugo/gnugo.el | 2 ++
1 files changed, 2 insertions(+), 0 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 06488a7..9159925 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/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))