[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/01: [gnugo] Fix bug: On role switch, flip karma after roles.
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/01: [gnugo] Fix bug: On role switch, flip karma after roles. |
Date: |
Wed, 30 Apr 2014 06:50:46 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit fc53f22d481b4665c3f5cd6b8d3eb3d614433197
Author: Thien-Thi Nguyen <address@hidden>
Date: Wed Apr 30 08:55:09 2014 +0200
[gnugo] Fix bug: On role switch, flip karma after roles.
Omission from 2014-04-29, "Replace
abdication w/ Assist and Zombie minor modes".
* packages/gnugo/gnugo.el (gnugo-undo-one-move): Call
‘gnugo--who-is-who’ after switching :gnugo-color, :user-color.
---
packages/gnugo/gnugo.el | 7 ++++---
1 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index b0d4610..06488a7 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -2060,10 +2060,11 @@ See also `gnugo-undo-two-moves'."
(gnugo-gate)
(when me-next
(let* ((play (gnugo-get :last-mover))
- (wait (gnugo-other play)))
- (gnugo--who-is-who wait play (string= play (gnugo-get :user-color)))
+ (wait (gnugo-other play))
+ (samep (string= play (gnugo-get :user-color))))
(gnugo-put :user-color play)
- (gnugo-put :gnugo-color wait)))
+ (gnugo-put :gnugo-color wait)
+ (gnugo--who-is-who wait play samep)))
(gnugo--climb-towards-root 1 t))
(defun gnugo-undo-two-moves ()