summaryrefslogtreecommitdiff
path: root/lisp/play/zone.el
diff options
context:
space:
mode:
authorThien-Thi Nguyen <ttn@gnuvola.org>2007-10-01 06:36:58 +0000
committerThien-Thi Nguyen <ttn@gnuvola.org>2007-10-01 06:36:58 +0000
commit5db17239182556967bfaa5723214f31b8a91db6f (patch)
tree05769eedcb269567c869472d4410eda480a2aa77 /lisp/play/zone.el
parent86e405cfcbd467a812f6d4c4366477e6d6e0a430 (diff)
downloademacs-5db17239182556967bfaa5723214f31b8a91db6f.tar.gz
(zone): Let-bind show-trailing-whitespace to nil.
Diffstat (limited to 'lisp/play/zone.el')
-rw-r--r--lisp/play/zone.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index c146f4baa83..896c1d4ac0a 100644
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -138,6 +138,7 @@ If the element is a function or a list of a function and a number,
(sit-for 0 500)
(let ((pgm (elt zone-programs (random (length zone-programs))))
(ct (and f (frame-parameter f 'cursor-type)))
+ (show-trailing-whitespace nil)
(restore (list '(kill-buffer outbuf))))
(when ct
(modify-frame-parameters f '((cursor-type . (bar . 0))))
@@ -684,6 +685,7 @@ If nil, `zone-pgm-random-life' chooses a value from 0-3 (inclusive).")
(life (or zone-pgm-random-life-wait (random 4)))
(kill-buffer nil))))
+
(random t)
;;;;;;;;;;;;;;;