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

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit da9282740c4a90799cdfc59fa67bc04236e19bb7
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/gnugo.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

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)))))))