ttn pushed a commit to branch master
in repository elpa.
commit da9282740c4a90799cdfc59fa67bc04236e19bb7
Author: Thien-Thi Nguyen <t...@gnu.org>
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)))))))
