emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gnugo 17d907d 210/357: [gnugo int] Shave one ‘gnugo-ot


From: Stefan Monnier
Subject: [elpa] externals/gnugo 17d907d 210/357: [gnugo int] Shave one ‘gnugo-other’ call.
Date: Sun, 29 Nov 2020 14:51:23 -0500 (EST)

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

    [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.
---
 gnugo.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnugo.el b/gnugo.el
index ad3b335..1d5d2b3 100644
--- a/gnugo.el
+++ b/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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]