diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/play/zone.el | 12 |
2 files changed, 17 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4601d4a6d76..808e99af21f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-08-24 Thien-Thi Nguyen <ttn@gnuvola.org> + + * play/zone.el (zone-pgm-rat-race): New func. + (zone-programs): Add `zone-pgm-rat-race'. + 2007-08-24 Stefan Monnier <monnier@iro.umontreal.ca> * emacs-lisp/byte-opt.el (byte-optimize-if): Don't presume `clause' is diff --git a/lisp/play/zone.el b/lisp/play/zone.el index 71ae01d23d9..f1bbfb19938 100644 --- a/lisp/play/zone.el +++ b/lisp/play/zone.el @@ -74,6 +74,7 @@ If nil, don't interrupt for about 1^26 seconds.") zone-pgm-drip-fretfully zone-pgm-five-oclock-swan-dive zone-pgm-martini-swan-dive + zone-pgm-rat-race zone-pgm-paragraph-spaz zone-pgm-stress zone-pgm-stress-destress @@ -568,6 +569,17 @@ If the element is a function or a list of a function and a number, (defun zone-pgm-martini-swan-dive () (zone-pgm-drip t t)) +(defun zone-pgm-rat-race () + (while (not (input-pending-p)) + (zone-call '((zone-pgm-rotate 10) + (zone-pgm-drip-fretfully 15) + (zone-pgm-drip 10) + ((lambda () + (goto-char (point-min)) + (while (re-search-forward " +$" nil t) + (delete-region (match-beginning 0) (match-end 0)))) + 5))))) + ;;;; paragraph spazzing (for textish modes) |