Mercurial > emacs

changeset 84996:a4806daa82af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 e452faef14e5
children 0157774b2cf9
files lisp/play/zone.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
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)
 
 ;;;;;;;;;;;;;;;