ttn pushed a commit to branch ttn-gnugo
in repository elpa.
commit 33159e57757e9306cbf43d45d62d64a7e72da8c2
Author: Thien-Thi Nguyen <[email protected]>
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 <[email protected]>
+ [gnugo int] Use ‘zerop’.
+
+ * gnugo.el (gnugo-cleanup)
+ (gnugo-magic-undo, gnugo-board-mode): ...here.
+
+2014-01-30 Thien-Thi Nguyen <[email protected]>
+
[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)))))))
