(zone-pgm-random-life): Fix typo.

diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index 9fc4ad6bf890ddf8d6272e5b0c9dd38d635b4074..80d0760bed2be2db3b1f532a4ad50de3b07817b7 100644 (file)
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -663,7 +663,7 @@ If nil, `zone-pgm-random-life' chooses a value from 0-3 (inclusive).")
               c (aref s 0))
         (zone-replace-char
          (char-width c)
-         t s (cond ((or (> top (point))
+         1 s (cond ((or (> top (point))
                         (< bot (point))
                         (or (> 11 (setq col (current-column)))
                             (< rtc col)))