Mercurial > emacs
diff lisp/play/zone.el @ 84996:a4806daa82af
(zone): Let-bind show-trailing-whitespace to nil.
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Mon, 01 Oct 2007 06:35:29 +0000 |
parents | 0bb1eda0b839 |
children | 786d3a985758 bdb3fe0ba9fa |
line wrap: on
line diff
--- a/lisp/play/zone.el Mon Oct 01 03:18:00 2007 +0000 +++ b/lisp/play/zone.el Mon Oct 01 06:35:29 2007 +0000 @@ -138,6 +138,7 @@ (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 @@ (life (or zone-pgm-random-life-wait (random 4))) (kill-buffer nil)))) + (random t) ;;;;;;;;;;;;;;;