diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:23:11 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:23:11 +0000 |
| commit | ac09886d6d2c5c5868dc502e6d077afa7b16cf71 (patch) | |
| tree | ef970cc1d724e0cb526faae3d6ed64154a6c2f98 /lisp/play | |
| parent | 904d6977be4c60eb7144b765dea49dbc97dd269e (diff) | |
| download | emacs-ac09886d6d2c5c5868dc502e6d077afa7b16cf71.tar.gz | |
(zone-pgm-rotate): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/zone.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/play/zone.el b/lisp/play/zone.el index f1bbfb19938..15d8e5eeba7 100644 --- a/lisp/play/zone.el +++ b/lisp/play/zone.el @@ -399,20 +399,20 @@ If the element is a function or a list of a function and a number, (let* ((specs (apply 'vector (let (res) - (mapcar (lambda (ent) - (let* ((beg (car ent)) - (end (cdr ent)) - (amt (if random-style - (funcall random-style) - (- (random 7) 3)))) - (when (< (- end (abs amt)) beg) - (setq amt (random (- end beg)))) - (unless (= 0 amt) - (setq res - (cons - (vector amt beg (- end (abs amt))) - res))))) - (zone-line-specs)) + (mapc (lambda (ent) + (let* ((beg (car ent)) + (end (cdr ent)) + (amt (if random-style + (funcall random-style) + (- (random 7) 3)))) + (when (< (- end (abs amt)) beg) + (setq amt (random (- end beg)))) + (unless (= 0 amt) + (setq res + (cons + (vector amt beg (- end (abs amt))) + res))))) + (zone-line-specs)) res))) (n (length specs)) amt aamt cut paste txt i ent) |