From 5db17239182556967bfaa5723214f31b8a91db6f Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 1 Oct 2007 06:36:58 +0000 Subject: [PATCH] (zone): Let-bind show-trailing-whitespace to nil. --- lisp/ChangeLog | 5 +++++ lisp/play/zone.el | 2 ++ 2 files changed, 7 insertions(+) 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 + + * play/zone.el (zone): Let-bind show-trailing-whitespace to nil. + Suggested by Chris Moore . + 2007-10-01 Jay Belanger * 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) ;;;;;;;;;;;;;;; -- 2.39.5