[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/03: [gnugo int] Avoid superfluous ‘gnugo-other’ call.
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/03: [gnugo int] Avoid superfluous ‘gnugo-other’ call. |
Date: |
Tue, 29 Apr 2014 09:28:17 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit 4951e789f95f67b99fcbab7b921b8051813d91bd
Author: Thien-Thi Nguyen <address@hidden>
Date: Sun Apr 27 13:54:15 2014 +0200
[gnugo int] Avoid superfluous ‘gnugo-other’ call.
* packages/gnugo/gnugo.el (gnugo-toggle-abdication): ...here.
---
packages/gnugo/gnugo.el | 5 ++---
1 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index bf7b120..d4cc344 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -2304,13 +2304,12 @@ a move to play for you, the thinking is not cancelled
but instead
transformed into a move suggestion (see `gnugo-request-suggestion')."
(interactive)
(let ((u (gnugo-get :user-color))
- (last-mover (gnugo-get :last-mover))
(abd (gnugo-get :abd)))
(if abd
;; disable
(let* ((gcolor (gnugo-get :gnugo-color))
(waiting (gnugo-get :waiting))
- (userp (string= last-mover gcolor)))
+ (userp (string= gcolor (gnugo-get :last-mover))))
(when (timerp abd)
(cancel-timer abd))
(gnugo--forget :abd)
@@ -2330,7 +2329,7 @@ transformed into a move suggestion (see
`gnugo-request-suggestion')."
;; enable
(gnugo-gate t)
(gnugo-put :abd t)
- (gnugo-get-move (gnugo-other last-mover)))
+ (gnugo-get-move u))
(gnugo--instant-karma u (not abd))))
;;;---------------------------------------------------------------------------