Mercurial > emacs
changeset 28091:d28d789a8521
(hanoi-internal): Don't use oddp.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sat, 11 Mar 2000 18:47:38 +0000 |
| parents | 5627c03551f1 |
| children | ce3bf4da00a9 |
| files | lisp/play/hanoi.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/hanoi.el Sat Mar 11 06:54:21 2000 +0000 +++ b/lisp/play/hanoi.el Sat Mar 11 18:47:38 2000 +0000 @@ -268,7 +268,8 @@ (make-string (1- radius) (if vert ?\- ?\|)) (if vert ">" "v")) for face = - (if (oddp n) hanoi-odd-ring-face hanoi-even-ring-face) + (if (eq (logand n 1) 1) ; oddp would require cl at runtime + hanoi-odd-ring-face hanoi-even-ring-face) do (hanoi-put-face 0 (length str) face str) collect (cons str diameter))) ;; Disable display of line and column numbers, for speed.