[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/03: [gnugo int] Shave one ‘gnugo-other’ call.
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/03: [gnugo int] Shave one ‘gnugo-other’ call. |
Date: |
Thu, 17 Apr 2014 08:46:46 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit 22fdf8ffec4d58b4b94bac55da730704140fc595
Author: Thien-Thi Nguyen <address@hidden>
Date: Thu Apr 17 10:16:36 2014 +0200
[gnugo int] Shave one ‘gnugo-other’ call.
* packages/gnugo/gnugo.el (gnugo): ...here,
in the root-node init, by checking for "user plays black"
directly, and inverting the resulting :PB, :PW values.
---
packages/gnugo/gnugo.el | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index ad3b335..1d5d2b3 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -2523,9 +2523,9 @@ starting a new one. See `gnugo-board-mode' documentation
for more info."
"Japanese")
:AP (cons "gnugo.el" gnugo-version)
:KM komi)
- (let ((gb (gnugo--blackp (gnugo-other user-color))))
- (r! (if gb :PW :PB) (user-full-name)
- (if gb :PB :PW) (concat "GNU Go " (gnugo-query "version"))))
+ (let ((ub (gnugo--blackp user-color)))
+ (r! (if ub :PW :PB) (concat "GNU Go " (gnugo-query "version"))
+ (if ub :PB :PW) (user-full-name)))
(unless (zerop handicap)
(r! :HA handicap
:AB (mapcar (gnugo--as-cc-func)