diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-06-22 21:34:22 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-06-22 21:34:22 +0000 |
commit | f535f6b22c5adfe8d4be6316abd0c2dc74cc7ef9 (patch) | |
tree | 3afb23d1f48fbe30dbf57b7597ced7662ffd0a5b /lisp/play | |
parent | 6b2797406826346ad2f3dfaeb1837d602e844bb9 (diff) | |
download | emacs-f535f6b22c5adfe8d4be6316abd0c2dc74cc7ef9.tar.gz |
(doctor-death): Give real advice to truly suicidal.
Diffstat (limited to 'lisp/play')
-rw-r--r-- | lisp/play/doctor.el | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 2c65fb8caa9..943b6f39356 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -542,6 +542,8 @@ reads the sentence before point, and prints the Doctor's answer." (setq eliza-flag nil) (make-local-variable 'zippy-flag) (setq zippy-flag nil) + (make-local-variable 'suicide-flag) + (setq suicide-flag nil) (make-local-variable 'lover) (setq lover '(your partner)) (make-local-variable 'bak) @@ -717,6 +719,7 @@ reads the sentence before point, and prints the Doctor's answer." (doctor-put-meaning suicides 'death) (doctor-put-meaning kill 'death) (doctor-put-meaning kills 'death) +(doctor-put-meaning killing 'death) (doctor-put-meaning die 'death) (doctor-put-meaning dies 'death) (doctor-put-meaning died 'death) @@ -1574,7 +1577,19 @@ Hack on previous word, setting global variable OWNER to correct result." (doctor-foul) (doctor-type ($ sexlst)))) -(defun doctor-death () (doctor-type ($ deathlst))) +(defun doctor-death () + (cond (suicide-flag (doctor-type ($ deathlst))) + ((or (equal found 'suicide) + (and (or (equal found 'kill) + (equal found 'killing)) + (memq 'yourself sent))) + (setq suicide-flag t) + (doctor-type '(If you are really suicidal, you might + want to contact the Samaritans via + E-mail: jo@samaritans.org or, at your option, + anonymous E-mail: samaritans@anon.penet.fi\ \. + ($ please) ($ continue) \.))) + (t (doctor-type ($ deathlst))))) (defun doctor-foul () (doctor-type ($ foullst))) |