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 | 0ab1b3fff56f43fa2734f075bb66f6888b3ceb97 (patch) | |
| tree | 1e506faa8a7dcafdaa0aefc1247a623e58a5dee4 /lisp/play/zone.el | |
| parent | 5a5b0a68fb3d7b0296f882a56cc6774a9df185d3 (diff) | |
| download | emacs-0ab1b3fff56f43fa2734f075bb66f6888b3ceb97.tar.gz | |
(zone-pgm-rotate): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/play/zone.el')
| -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) |