mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(hanoi-internal): Don't use oddp.

Browse Source
This commit is contained in:
Dave Love 2000-03-11 18:47:38 +00:00
parent f24fef2f20
commit cbf48ec9a2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/play/hanoi.el
View File

@ -268,7 +268,8 @@ BITS must be of length nrings. Start at START-TIME."
(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.