                   (insertc "|" "brown" nil)))
   (redisplay t))
 
-(defun evolution ()
+(defun evolution-start ()
+(let ((inhibit-read-only t))
   (interactive)
   (draw-world)
   (newline)

                         below x
                         do (update-world)
                         (draw-world))
                 (evolution)))))))


  (interactive)
  (switch-to-buffer "*evolution-game*")
  (evolution-mode)
  (font-lock-mode)
  (evolution-start))

(define-derived-mode evolution-mode
  special-mode "Evolution"
