(zone-pgm-rotate): Use `mapc' rather than `mapcar'.

diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index f1bbfb19938930c2addd99f7d190fcb90b3e23bf..15d8e5eeba72d5863d40be12d617b060677360ba 100644 (file)
--- 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)