[elpa] 08/17: [gnugo int] Use ‘zerop ’.

[Thien-Thi Nguyen]

ttn pushed a commit to branch ttn-gnugo
in repository elpa.

commit 33159e57757e9306cbf43d45d62d64a7e72da8c2
Author: Thien-Thi Nguyen <address@hidden>
Date:   Thu Jan 30 16:55:16 2014 +0100

    [gnugo int] Use ‘zerop’.
    
    * packages/gnugo/gnugo.el (gnugo-cleanup)
    (gnugo-magic-undo, gnugo-board-mode): ...here.
---
 packages/gnugo/ChangeLog |    7 +++++++
 packages/gnugo/gnugo.el  |    6 +++---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/packages/gnugo/ChangeLog b/packages/gnugo/ChangeLog
index 7c3cb3a..0c06fcd 100644
--- a/packages/gnugo/ChangeLog
+++ b/packages/gnugo/ChangeLog
@@ -1,5 +1,12 @@
 2014-01-30  Thien-Thi Nguyen  <address@hidden>
 
+       [gnugo int] Use ‘zerop’.
+
+       * gnugo.el (gnugo-cleanup)
+       (gnugo-magic-undo, gnugo-board-mode): ...here.
+
+2014-01-30  Thien-Thi Nguyen  <address@hidden>
+
        [gnugo] Presume "modern" GNU Emacs.
 
        * gnugo.el (delete-dups, window-edges):
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 613e370..cb92f46 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1002,7 +1002,7 @@ its move."
 
 (defun gnugo-cleanup ()
   (when (gnugo-board-buffer-p)
-    (unless (= 0 (buffer-size))
+    (unless (zerop (buffer-size))
       (message "Thank you for playing GNU Go."))
     (mapc (lambda (sym)
             (setplist sym nil)          ; "...is next to fordliness." --Huxley
@@ -1350,7 +1350,7 @@ turn to play.  Optional second arg NOALT non-nil inhibits 
this."
          (count (aref monkey 2))
          done ans)
     (cond ((and (numberp spec) (< 0 spec))
-           (setq n spec done (lambda () (= 0 n))))
+           (setq n spec done (lambda () (zerop n))))
           ((string-match "^[a-z]" spec)
            (let ((pos (upcase spec)))
              (setq done `(lambda ()
@@ -1741,7 +1741,7 @@ In this mode, keys do not self insert.  Default 
keybindings:
               (,(if g-blackp :PW :PB) ,(user-full-name))
               (,(if g-blackp :PB :PW) ,(concat "GNU Go "
                                                (gnugo-query "version")))
-              ,@(when (not (= 0 handicap))
+              ,@(when (not (zerop handicap))
                   `((:HA ,handicap)
                     (:AB ,(gnugo-lsquery "fixed_handicap %d" handicap)
                          nil t)))))))