diff options
| author | Juanma Barranquero | 2007-09-26 00:23:11 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-09-26 00:23:11 +0000 |
| commit | 0ab1b3fff56f43fa2734f075bb66f6888b3ceb97 (patch) | |
| tree | 1e506faa8a7dcafdaa0aefc1247a623e58a5dee4 | |
| parent | 5a5b0a68fb3d7b0296f882a56cc6774a9df185d3 (diff) | |
| download | emacs-0ab1b3fff56f43fa2734f075bb66f6888b3ceb97.tar.gz emacs-0ab1b3fff56f43fa2734f075bb66f6888b3ceb97.zip | |
(zone-pgm-rotate): Use `mapc' rather than `mapcar'.
| -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, | |||
| 399 | (let* ((specs (apply | 399 | (let* ((specs (apply |
| 400 | 'vector | 400 | 'vector |
| 401 | (let (res) | 401 | (let (res) |
| 402 | (mapcar (lambda (ent) | 402 | (mapc (lambda (ent) |
| 403 | (let* ((beg (car ent)) | 403 | (let* ((beg (car ent)) |
| 404 | (end (cdr ent)) | 404 | (end (cdr ent)) |
| 405 | (amt (if random-style | 405 | (amt (if random-style |
| 406 | (funcall random-style) | 406 | (funcall random-style) |
| 407 | (- (random 7) 3)))) | 407 | (- (random 7) 3)))) |
| 408 | (when (< (- end (abs amt)) beg) | 408 | (when (< (- end (abs amt)) beg) |
| 409 | (setq amt (random (- end beg)))) | 409 | (setq amt (random (- end beg)))) |
| 410 | (unless (= 0 amt) | 410 | (unless (= 0 amt) |
| 411 | (setq res | 411 | (setq res |
| 412 | (cons | 412 | (cons |
| 413 | (vector amt beg (- end (abs amt))) | 413 | (vector amt beg (- end (abs amt))) |
| 414 | res))))) | 414 | res))))) |
| 415 | (zone-line-specs)) | 415 | (zone-line-specs)) |
| 416 | res))) | 416 | res))) |
| 417 | (n (length specs)) | 417 | (n (length specs)) |
| 418 | amt aamt cut paste txt i ent) | 418 | amt aamt cut paste txt i ent) |