Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 84995:e452faef14e5 | 84996:a4806daa82af |
|---|---|
| 136 (set-window-start (selected-window) (point-min)) | 136 (set-window-start (selected-window) (point-min)) |
| 137 (set-window-point (selected-window) wp) | 137 (set-window-point (selected-window) wp) |
| 138 (sit-for 0 500) | 138 (sit-for 0 500) |
| 139 (let ((pgm (elt zone-programs (random (length zone-programs)))) | 139 (let ((pgm (elt zone-programs (random (length zone-programs)))) |
| 140 (ct (and f (frame-parameter f 'cursor-type))) | 140 (ct (and f (frame-parameter f 'cursor-type))) |
| 141 (show-trailing-whitespace nil) | |
| 141 (restore (list '(kill-buffer outbuf)))) | 142 (restore (list '(kill-buffer outbuf)))) |
| 142 (when ct | 143 (when ct |
| 143 (modify-frame-parameters f '((cursor-type . (bar . 0)))) | 144 (modify-frame-parameters f '((cursor-type . (bar . 0)))) |
| 144 (setq restore (cons '(modify-frame-parameters | 145 (setq restore (cons '(modify-frame-parameters |
| 145 f (list (cons 'cursor-type ct))) | 146 f (list (cons 'cursor-type ct))) |
| 682 (make-string 5 ?@)) | 683 (make-string 5 ?@)) |
| 683 (make-string 10 32))))))) | 684 (make-string 10 32))))))) |
| 684 (life (or zone-pgm-random-life-wait (random 4))) | 685 (life (or zone-pgm-random-life-wait (random 4))) |
| 685 (kill-buffer nil)))) | 686 (kill-buffer nil)))) |
| 686 | 687 |
| 688 | |
| 687 (random t) | 689 (random t) |
| 688 | 690 |
| 689 ;;;;;;;;;;;;;;; | 691 ;;;;;;;;;;;;;;; |
| 690 (provide 'zone) | 692 (provide 'zone) |
| 691 | 693 |