X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/14ba08227d9272a34a0a95d20640f4bbdd0b6033..54bd972f159fb8c25b4f4042ac6db5da557d9108:/lisp/play/life.el

diff --git a/lisp/play/life.el b/lisp/play/life.el
index a52c5477bb..a73f3a58e6 100644
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -290,8 +290,7 @@ generations (this defaults to 1)."
   (life-display-generation 0)
   (signal 'life-extinct nil))
 
-(put 'life-extinct 'error-conditions '(life-extinct quit))
-(put 'life-extinct 'error-message "All life has perished")
+(define-error 'life-extinct "All life has perished" 'quit) ;FIXME: quit really?
 
 (provide 'life)