mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(zone-pgm-rat-race): New func.

Browse Source 
(zone-programs): Add `zone-pgm-rat-race'.
This commit is contained in:
Thien-Thi Nguyen 2007-08-24 16:07:07 +00:00
parent 9d693d807f
commit 5b29d790c9
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

12
lisp/play/zone.el
View File

@ -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)