From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Mon, 1 Oct 2007 06:36:58 +0000 (+0000)
Subject: (zone): Let-bind show-trailing-whitespace to nil.
X-Git-Tag: emacs-pretest-23.0.90~10560
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5db17239182556967bfaa5723214f31b8a91db6f;p=emacs.git

(zone): Let-bind show-trailing-whitespace to nil.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8546373c97..51f225f30ed 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-01  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+	* play/zone.el (zone): Let-bind show-trailing-whitespace to nil.
+	Suggested by Chris Moore <christopher.ian.moore@gmail.com>.
+
 2007-10-01  Jay Belanger  <jay.p.belanger@gmail.com>
 
 	* calc/calc-math.el (math-largest-emacs-expt): Handle the cases
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)
 
 ;;;;;;;;;;;;;;;