* lisp/subr.el (define-error): New function.

[gnu-emacs] / lisp / play / life.el

diff --git a/lisp/play/life.el b/lisp/play/life.el
index a52c5477bb7b684d1c4d0582ac5d38285569af89..a73f3a58e6670e20257ae2aaa0606bf2e90a1d51 100644 (file)
--- 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)